anchor.diff:  ; 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
  
positive.code: (setq *variables*
  	  (cons (cons '*environment-filenames* nil)
  	  (cons (cons '*show-definitions* nil)
  	        nil)))
  
  (setq *environment-filenames* nil)
  
  
negative.code:     (env-load "oo/thisify.lisp"))
    (env-load "oo/class.lisp")
    (env-load "oo/ducktype.lisp")
  ;  (env-load "oo/ducktype-test.lisp")
  )
  
  (when *tre-has-editor*
    (env-load "editor/main.lisp"))
  