anchor.diff:  
            ;; delete all the b/ library packages:
            :delete-packages (existing-packages (list*
  -                                              "UFFI"
  +                                              "UFFI" "CAPI"
                                                 (remove-if-not (lambda (p) 
                                                                  (let ((name (package-name p)))  
                                                                    (and (> (length name) 2)
  
positive.code:           #+:lispworks4 '(:exit-after-delivery t ; nil - set to nil for debugging purposes
                            :keep-ratio-numbers t
                            :keep-lexer t)
            #+:win32 `(:image-type :exe)))
  
  
  
  
  
  
negative.code:   (delete-if #'null
               (mapcar (lambda (pspec) (if (find-package pspec) pspec)) plist)))
  
  (defvar *littleb-id-string* (multiple-value-bind (major minor revision) (b:littleb-version)
                                (format nil "little b Version ~A.~A.~A" major minor revision)))
  (defun b::run-b-top-level ()
    (setf b-system:*b-root-directory* (make-pathname :name nil :type nil :version nil
                                                     :defaults (probe-file (first system:*line-arguments-list*)))
          b:*library-search-paths* (list (merge-pathnames "libraries/" b-system:*b-root-directory*)))
    (format t "~A~%~
               Copyright (C) 2005-8, Aneil Mallavarapu~%~
               http://www.littleb.org~%~%"
            *littleb-id-string*)
    (in-package :b-user)
    (b:init)
    (system::%top-level-internal :read-a-command 'system::read-a-command 
                                 :eval-function 'eval
                                 :debug-level 0
                                 :read-stream *standard-input*
                                 :print-stream *standard-output*))
  
  ;;; Deliver the application
  (apply #'deliver 'b::run-b-top-level *delivered-image-name* 
           1
           ;:compact t
           :keep-gc-cursor t
           :multiprocessing t
          ; :display-progress-bar t
           :product-name *littleb-id-string*
           :format t
           :keep-pretty-printer t
           :keep-package-manipulation t
           :keep-clos t
           :keep-macros t                      ; T is required
           :keep-pretty-printer t
           :keep-package-manipulation t
           :keep-eval t
           :keep-documentation t
           :keep-debug-mode t
           :keep-top-level t
           :kill-dspec-table nil
           :keep-conditions :all
  