anchor.diff:               (setf *** **
                      ** *
                      * (first result))
  -             (if result
  -                 (dolist (v result)
  -                   (fresh-line)
  -                   (write v))
  -                 (progn
  -                   (fresh-line)
  -                   (write-string "; No values.")))))))))
  +             (when result
  +               (dolist (v result)
  +                 (fresh-line)
  +                 (write v)))))))))
   
   (defvar *early-initialize-hook* '())
   (defvar *initialize-hook* '())
  
positive.code:   (unless (boundp hook)
      (setf (symbol-value hook) '()))
    (pushnew function (symbol-value hook)))
  
  (defun initialize-lisp ()
    (setf *package* (find-package "CL-USER"))
  
negative.code:   (%sti)
    (pci-init)
    (mapc 'funcall *initialize-hook*)
    (format t "Hello, World!~%")
    (with-simple-restart (abort "Stop loading modules.")
      (dotimes (i (multiboot-module-count))
        (with-simple-restart (continue "Skip loading this module.")
          (format t "Loading module ~S.~%" (multiboot-module-command-line i))
          (load (make-multiboot-module-stream i)))))
    (repl))
  
  (initialize-lisp)
  