anchor.diff:  (when (save-argument-real-p)
     (compile-file-if-needed (sys:example-file   "configuration/macos-application-bundle") :load t)
     (setq *delivered-image-name*
  -        (write-macos-application-bundle "~/bcons.app"   
  +        (write-macos-application-bundle "~/littleb.app"   
               :document-types nil)))  
   
   (clrhash b::*package-clearable-items*)
  
positive.code:   (delete-if #'null
               (mapcar (lambda (pspec) (if (find-package pspec) pspec)) plist)))
  
  (defun b::run-b-top-level ()
    (setf b-system:*b-root-directory* (make-pathname :name nil :type nil :version nil
                                                     :defaults (first system:*line-arguments-list*))
          b:*library-search-paths* (list (merge-pathnames "libraries/" b-system:*b-root-directory*)))
    (multiple-value-bind (major minor revision) (b:littleb-version)
      (format t "bCons: little b console~%~
                 Version ~A.~A.~A~%~
                 Copyright (C) 2005-8, Aneil Mallavarapu~%~
                 http://www.littleb.org~%~%"
              major minor revision))
    (in-package :b-user)
    (b:init)
    (do () (nil)
      (with-simple-restart (:terp "Return to top level")
        (system::listener-top-level *terminal-io*))))
  
  
  ;;; Deliver the application
  (apply #'deliver 'b::run-b-top-level *delivered-image-name* 
           1
           ;:compact t
           :action-on-failure-to-open-display (lambda () (format t "Cannot open X windows"))
           :keep-gc-cursor t
           :multiprocessing t
           :display-progress-bar t
           :console t
           :product-name "little b terminal"
           :quit-when-no-windows t
           :format t
           :keep-pretty-printer t
           :keep-package-manipulation t
           :keep-clos t
           :keep-macros t                      ; T is required
           :editor-commands-to-delete nil
           :keep-pretty-printer t
           :keep-package-manipulation t
           :quit-when-no-windows t
           :keep-eval t
           :keep-documentation t
           :keep-debug-mode t
           :keep-editor t
           :keep-top-level t
           :kill-dspec-table nil
           :keep-conditions :all
  
negative.code: 
           ;; delete all the b/ library packages:
           :delete-packages (existing-packages (list*
                                                "UFFI" "CAPI"
                                                (remove-if-not (lambda (p) 
                                                                 (let ((name (package-name p)))  
                                                                   (and (> (length name) 2)
  