anchor.diff:  
   (load-all-patches)
   ;; unix complains on delivery
  -#+(not :mac) (progn (require "pc-mode") (editor::load-pc-input-style))
  -
  -#+:unix (setf capi-motif-library:*default-application-class* "little b")
  -#+(or :win32 :unix) (setf editor::*editor-input-style* editor::*pc-input-style*)
   
   
   ;;; Where we are going to save the application (except on Cocoa)
   
  -(defvar *delivered-image-name* (merge-pathnames (format nil "build/bcons~@[.~A~]" #+:win32 "exe" #+:unix "bin")
  -                                                *load-truename*))
  +(defvar *current-dir* (make-pathname :name nil :type nil :defaults *load-truename*))
  +(defvar *delivered-image-name* (merge-pathnames (format nil "build/littleb~@[.~A~]"
  +                                                        #+:win32 "exe" #-:win32 nil)
  +                                                *current-dir*))
   
   #-:asdf (load (merge-pathnames "../asdf/asdf+.lisp" *load-truename*))
   (push (probe-file (merge-pathnames
  
positive.code:                        :from (b:get-b-path :root (format nil "libraries/~A" libname))
                         :to (merge-pathnames libname build-libs)
                         :subdirs t)))
             (copy (src &key (dest src) (from "") (to "") subdirs) ; default from bcons folder
               (let* ((from (merge-pathnames from #+:win32 bcons* #+:unix bcons))
                      (to   (merge-pathnames to build))
                      (src #+:win32 (namestring (merge-pathnames src from))
                           #+:unix (namestring (merge-pathnames src from)))
  
negative.code:                #+:win32 (system:call-system `("xcopy" ,src ,dest
                                                        ,@(if subdirs '("/S")) "/Q" "/Y" "/D" "/I")
                                              :kill-process-on-abort t)
                 #+:unix (system:call-system-showing-output `("/bin/cp" "-r" "-p" "--copy-contents" ,src ,dest)) ; complains it can't find program cp.
  
  ;               #+:unix (system:call-system-showing-output `("sh" ,copy-script ,src ,dest)) ; this hack doesn't work either; can't find sh
                 )))
  