anchor.diff:      (unless (probe-file app-file) (create-file app-file)) ; temporary bug workaround (??)
       (dolist (file files-to-copy) (copy-file file (make-pathname :directory dir :defaults file)))
       (with-open-file (s "/tmp/cmds" :direction :output :if-exists :supersede)
  -      (format t "~%Commands to be used to create ~A~%" app-file)
  +      (format t "~%Commands to be used in lower process ~A to create~%  ~A~%" base-lisp app-file)
         (format t "========================================================~%")
         (dolist (file files-to-load) 
   	(format t "(load ~S)~%" file)
  
positive.code:       (format s "~%")
        (format t "========================================================~%"))
      (let ((process nil))
        (format t "~&~%Output from lisp in lower process being created:~%")
        (format t "~&========================================================~%")
        (unwind-protect 
  	  (setq process (run-program "/usr/local/bin/cmucl" '() :wait t :input "/tmp/cmds" :output t :error :output))
  	(let ((rc (process-exit-code process)))
  	  (format t "~&========================================================~%")
  	  (cond ((= rc 0)
  		 (format t "~&~%Success saving ~A~%" app-file)
  		 (format t "~&Invoke as:")
  		 (format t "~& cmucl -core ~A~%~%" app-file))
  		(t
  		 (format t "~&Problem: Return code = ~D when saving ~A~%~%" app-file)))
  	  (process-close process))))))
  
  (defun copy-file (a b)
    (with-open-file (old a :direction :input :element-type 'unsigned-byte)
  
negative.code:   (extensions::save-lisp name :purify t))
  
  #+CMU
  (defun generate-new-lisp-application (base-lisp name dir files-to-load files-to-copy)
    ;; 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/cmucl/doc/cmu-user/extensions.html#toc43
  