anchor.diff:  (setq *variables*
   	  (cons (cons '*environment-filenames* nil)
   	  (cons (cons '*show-definitions* nil)
  -	        nil)))
  +	  (cons (cons '*boot-image* nil)
  +	  (cons (cons '%launchfile nil)
  +	        nil)))))
   
   (setq *environment-filenames* nil)
   
  
positive.code: ; Keep tests for reuse in definition order.
  (setq *tests* (reverse *tests*))
  
  (defvar *universe-functions* (currently-defined-functions))
  
  ; Load file specified on command-line or loaded image.
  (defun %load-launchfile ()
    (when %LAUNCHFILE
  
negative.code:   (sys-image-create *boot-image* #'%load-launchfile)
    (format t " OK~%"))
  
  (defvar *universe-functions* (currently-defined-functions))
  
  (dump-system)
  (%load-launchfile)
  