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: (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: ;;;             * a user init file which supports multi-directory installation is provided in build/support
  ;;;
  (defun make-build-folder ()
    (let* ((littleb    (current-dir "../"))
           (littleb*   (merge-pathnames "*.*" littleb))
           (build      *build-dir*)
           (build-libs (merge-pathnames "libraries/" build))
  