anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   #+SBCL
  -(defun save-this-lisp-image (name)
  +(defun save-this-lisp-image (name &key executable?)
     ;; Save this image.
     (set-gc-parameters-for-use nil)
  -  (sb-ext::save-lisp-and-die name :executable t)) ;  :purify nil
  +  (sb-ext::save-lisp-and-die name :executable executable?)) ;  :purify nil
   
   #+SBCL
  -(defun generate-new-lisp-application (base-lisp name dir files-to-load files-to-copy)
  +(defun generate-new-lisp-application (base-lisp name dir files-to-load files-to-copy &key executable?)
     ;; Build a fresh image with desired properties.
     ;; (This should be a completely new image, not simply a clone of this image!)
     ;; See http://cvs2.cons.org/ftp-area/sbcl/doc/sbcl-user/extensions.html#toc43
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  #+CMU
  (defun save-this-lisp-image (name)
    ;; Save this image.
    (set-gc-parameters-for-use nil)
    ;; See http://cvs2.cons.org/ftp-area/cmucl/doc/cmu-user/extensions.html#toc43
  
negative.code:       (dolist (file files-to-load) 
  	(format t "(load ~S)~%" file)
  	(format s "(load ~S)~%" file))
        (format t "(sb-ext::save-lisp-and-die ~S :purify nil :executable ~S)~%" app-file executable?)
        (format s "(sb-ext::save-lisp-and-die ~S :purify nil :executable ~S)~%" app-file executable?)
        (format s "~%")
        (format t "========================================================~%"))
      (let ((process nil))
  