anchor.diff:    (:method ((expr array) (stream stream))
       (multiple-value-bind (displ displ-off-t)
           (array-displacement expr)
  -      #-NIL (declare ignore displ-off-t)
  +      #-NIL (declare (ignore displ-off-t))
         ;; NB Refer to FIXME/TBD annotation, below
         (when displ
           (simple-program-error
  
positive.code:   ;; NB: This function will not perform any name mangling, vis a vis
    ;; character case.
    ;;
    ;; NB: When PKG-P
    ;;  - This function will not access any packgage nicknames
    ;;  - This function will not assume that any symbol is exported
    ;;
    (declare (type symbol s) (type stream stream)
             (values stream &optional))
      (let ((*package* (mk-lf (find-package '#:keyword))))
        ;; FIXME/TBD: When no symbol package, write an #<N>=<SYMBOL> expr
        ;; and store the symbol for <N> within the current PRINT-ENVIRONMENT
        (prin1 s stream)))
  
  ;; (with-output-to-string (s) (write-symbol 'frob s))
  ;; => "FROB"
  
  ;; (with-output-to-string (s) (write-symbol 'lambda s t))
  ;; => "COMMON-LISP::LAMBDA"
  
  
  (defun* write-space (stream)
  
negative.code:     ;; encoding sufficient to represent every character and string
      ;; provided to WRITE-REFERENCE-EXPRESSION
      (princ expr stream)
      (values stream))
  
    (:method ((expr number) (stream stream))
      (prin1 expr stream)
  