anchor.diff:  (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)
   
  
positive.code:                           #+: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
                 )))
      
      
  
negative.code:          :never-shake-packages '(#:b #:setf #:cl #:mallavar-utility #:lisa #:lisa-user #:cl-user
                                       #:compiler #:slot-symbol #:swank)
  
           ;; :exit-after-delivery nil - not implemented, though it's in the documentation!
           (append
            #+:lispworks4 '(:exit-after-delivery t ; nil - set to nil for debugging purposes
                            :keep-ratio-numbers t
  