anchor.diff:  NIL: default to ~/.cache/xcvb/common-lisp/sbcl-1.0.47-x86/ or some such, see docs")
   
   (defvar *tmp-directory-pathname*
  -  (pathname
  -   #+os-unix (format nil "~A/" (or (getenv "TMP") "/tmp"))
  -   #+os-windows (format nil "~A\\" (or (getenv "TEMP") (error "No temporary directory!"))))
  +  (let* ((dir
  +          #+os-unix (format nil "~A/" (or (getenv "TMP") "/tmp"))
  +          #+os-windows (format nil "~A\\" (or (getenv "TEMP") (error "No temporary directory!"))))
  +         #+mcl (dir (probe-posix dir)))
  +    (pathname dir))
     "pathname of directory where to store temporary files")
   
   (defvar *use-base-image* t
  
positive.code:              (run-program command :pipe nil)
               #+ecl (ext:system command)
               #+cormanlisp (win32:system command)
               #+gcl (lisp:system command)
               #+(and lispworks os-windows)
               (system:call-system-showing-output
  
negative.code:   #+cmu (setf ext:*gc-verbose* nil)
    #+clisp (setf custom:*source-file-types* nil custom:*compiled-file-types* nil)
    #+(and ecl (not ecl-bytecmp)) (let ((*load-verbose* nil)) (require :cmp))
    #.(or #+mcl ;; the #$ doesn't work on other lisps, even protected by #+mcl
       (read-from-string
        "(eval-when (:compile-toplevel :load-toplevel :execute)
           (ccl:define-entry-point (_getenv \"getenv\") ((name :string)) :string)
           (ccl:define-entry-point (_system \"system\") ((name :string)) :int)
           ;; See http://code.google.com/p/mcl/wiki/Portability
           (defun current-user-homedir-pathname ()
             (ccl::findfolder #$kuserdomain #$kCurrentUserFolderType))
           (defun probe-posix (posix-namestring)
             \"If a file exists for the posix namestring, return the pathname\"
             (ccl::with-cstrs ((cpath posix-namestring))
               (ccl::rlet ((is-dir :boolean)
                           (fsref :fsref))
                 (when (eq #$noerr (#_fspathmakeref cpath fsref is-dir))
                   (ccl::%path-from-fsref fsref is-dir))))))"))
    #+sbcl (require :sb-posix)
    (let ((unix #+(or unix cygwin darwin mcl) t)
          (windows #+(and (or win32 windows mswindows mingw32) (not cygwin)) t))
      (cond
        ((and unix windows) (error "Your operating system is simultaneously Unix and Windows?~%~
  