anchor.diff:    (%sti)
     (pci-init)
     (mapc 'funcall *initialize-hook*)
  -  (write-string "Hello, World!")
  +  (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)
  
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:              (setf *** **
                     ** *
                     * (first result))
               (when result
                 (dolist (v result)
                   (fresh-line)
                   (write v)))))))))
  
  (defvar *early-initialize-hook* '())
  (defvar *initialize-hook* '())
  