anchor.diff:  (defun packages-beginning-with (str)
     (remove-if-not (package-begins-with str) (list-all-packages)))
   
  -;;; Deliver the application
  +;; write a batch file that will deliver the app to littleb.org
  +;; we can't do this inside this script (which is probably not a great idea anyway)
  +;; because the :exit-on-delivery keyword to deliver has not been implemented, so
  +;; nothing can be done after deliver
  +(with-open-file (file (current-dir #+:win32 "upload.bat" 
  +                                   #+:unix "upload.sh")
  +                      :direction :output
  +                      :if-does-not-exist :create 
  +                      :if-exists :overwrite )
  +  #+:win32 (format file
  +                   "zip -qrv ~A.zip ~:*~A/~%~
  +                    pscp ~:*~A.zip am116@orchestra.med.harvard.edu:/www/www.littleb.org/docroot/downloads/~%"
  +                   *release-name*)
  +  #+:unix (format file 
  +                  "tar -cf - ~A/ | gzip -c -9 > ~:*~A.tgz~%~
  +                   pscp ~:*~A.zip am116@orchestra.med.harvard.edu:/www/www.littleb.org/docroot/downloads/~%"
  +          *release-name*))
  +                                   
  +;;;; ;; Deliver the application
   (apply #'deliver 'b-console:run-b-top-level *delivered-image-name* 
            4
            :compact t
  
positive.code:           #+:win32 `(:image-type :exe 
                       :console t)))
  
  
  
  
  
  
negative.code:                           #+:unix (namestring to)))
                 (ensure-directories-exist dest)
                 #+:win32 (format t "~&xcopy ~A ~A ~@[/S~] /Q /Y /D /I~%" src dest subdirs)
                 #+: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))))
                 )))
      
      
  