anchor.diff:                            #+:unix (namestring to)))
                  (ensure-directories-exist dest)
                  #+:win32 (format t "~&xcopy ~A ~A ~@[/S~] /Q /Y /D /I~%" src dest subdirs)
  -               #+:win32 (system:call-system `("xcopy" ,src ,dest
  -                                                      ,@(if subdirs '("/S")) "/Q" "/Y" "/D" "/I")
  -                                            :kill-process-on-abort t)
  -               #+(and :unix (not :mac)) (system:call-system-showing-output `("/bin/cp" "-r" "-p" "--copy-contents" ,src ,dest)) ; cygwin complains it can't find program cp.
  -               #+:mac (system:call-system-showing-output `("/bin/cp" "-R" "-p" ,src ,dest)) 
  -;               #+:unix (system:call-system-showing-output `("sh" ,copy-script ,src ,dest)) ; this hack doesn't work either; can't find sh
  +               #+:win32 (assert (zerop (system:call-system `("xcopy" ,src ,dest
  +                                                                     ,@(if subdirs '("/S")) "/Q" "/Y" "/D" "/I")
  +                                                           :kill-process-on-abort t)))
  +               #+(and :unix (not :mac)) (assert (zerop (system:call-system-showing-output `("/bin/cp" "-r" "-p" "--copy-contents" ,src ,dest)))) ; cygwin complains it can't find program cp.
  +               #+:mac (assert (zerop (system:call-system-showing-output `("/bin/cp" "-R" "-p" ,src ,dest))))
                  )))
       
       
  
positive.code: (defun packages-beginning-with (str)
    (remove-if-not (package-begins-with str) (list-all-packages)))
  
  ;;; Deliver the application
  (apply #'deliver 'b-console:run-b-top-level *delivered-image-name* 
           4
           :compact t
  
negative.code: (asdf:load-system :b1)
  (compile-file (current-dir "console.lisp") :load t)
  (b:init)
  
  (defvar *release-name* (format nil
                                 "~A-littleb-console-v~{~A.~A.~A~}"
                                 #+:win32 "x86-win32"
                                 #+:linux "x86-linux"
                                 #+:macos   "macos"
                                 #-(or :mac :win32 :linux) (error "Please edit deliver.lisp - current platform unknown")
                                 (multiple-value-list (b:littleb-version))))
  (defvar *build-dir*  (current-dir (format nil "~A/" *release-name*)))
  (defvar *delivered-image-name* (make-pathname :name "littleb" :type  "exe" #-:win32 nil
                                                :defaults *build-dir*))
                                                   
  
  
  
  #+:compile-library (b:compile-library 'b)
  
  