anchor.diff:        (when (and *document-normalize-packages* (not same-package))
           (format stream "###### \\[in package ~A~A\\]~%" (package-name *package*)
                   (if (package-nicknames *package*)
  -                    (format nil " with nicknames ~{~A~^, ~}" (package-nicknames *package*))
  +                    (format nil " with nicknames ~{~A~^, ~}"
  +                            (package-nicknames *package*))
                       "")))
         (let ((firstp t))
           (dolist (entry (section-entries section))
  
positive.code:   ```
  
    which will return the same reference as `(MAKE-REFERENCE 'FOO
    'VARIABLE)`. Operations need to know how to deal with references
    which we will see in LOCATE-AND-COLLECT-REACHABLE-OBJECTS,
    LOCATE-AND-DOCUMENT and LOCATE-AND-FIND-SOURCE.
  
  
negative.code: (defgeneric locative-lambda-list (symbol))
  
  (defgeneric locate-object (object locative-type locative-args)
    (:documentation "Return the object to which OBJECT and the locative
    refer. For example, if LOCATIVE-TYPE is the symbol PACKAGE, this
    returns `(FIND-PACKAGE SYMBOL)`. Signal a LOCATE-ERROR condition by
    calling the LOCATE-ERROR function if the lookup fails. Signal other
  