anchor.diff:      array))
   
   (defvar *magic-unbound-value* (cons "Magic unbound value" nil))
  +
  +(defun load-inhibited ()
  +  (and *load-if-stack*
  +       (or (not (first *load-if-stack*))
  +           (eql (first *load-if-stack*) :inhibit))))
   
   (defun load-one-object (command stream stack)
     (ecase command
  
positive.code: 
  (defvar *noisy-load* nil)
  (defvar *load-wired* nil "When true, allocate objects in the wired area.")
  
  (defun llf-command-name (command)
    (ecase command
  
negative.code:     (#.+llf-complex-single-float+ 'complex-single-float)
      (#.+llf-complex-double-float+ 'complex-double-float)
      (#.+llf-instance-header+ 'instance-header)
      (#.+llf-symbol-global-value-cell+ 'symbol-global-value-cell)
      (#.+llf-if+ 'if)
      (#.+llf-else+ 'else)
      (#.+llf-fi+ 'fi)))
  
  (defun llf-architecture-name (id)
    (case id
  