anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   #+MCL
  -(defun save-this-lisp-image (name)
  +(defun save-this-lisp-image (name &key executable?)
  +  (when executable?
  +    (warn "Ignoring executable? option in Allegro version of save-this-lisp-image"))
     (format t "Saving ~a~%" name)
     (set-gc-parameters-for-use nil)
     ;(unless (probe-file name) (create-file  name))  ; temporary bug workaround (??)
  
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: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  #+SBCL
  (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 executable?)) ;  :purify nil
  
  #+SBCL
  (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
  