anchor.diff:  
       (dolist (sl (class-slots %class))
         (declare (type effective-slot-definition sl))
  -      (when (print-reader-for sl class stream)
  -        (terpri stream))
  -      (when (print-writer-for sl class stream)
  -        (terpri stream)))
  +      ;; NB: Each of these reader, writer printer forms should also
  +      ;; print an FTYPE declaration to the stream.
  +      (print-reader-for sl class stream)
  +      (print-writer-for sl class stream))
   
        ;; (write-char #\) stream)
        ;; (terpri stream)
  
positive.code: 
  ;; ----
  ;;
  ;; Generalized unparser functions
  ;;
  
  (declaim (inline princ-symbol
                   princ-space))
  
  (defun* princ-symbol (s stream &optional pkg-p)
    ;; NB: If S is a string, it's assumed that any character in S such
    ;; that may be "Special" for a symbol name will have already been
    ;; escaped by the calling procedure.
    ;;
    ;; NB: This function will not perform any name mangling, vis a vis
    ;; character case.
  
negative.code:     may be defined as to not permit class redefinition subsequent of
      class finalization.
  
        * This may be accomplished, in some regards, with a trivial error
          procedure in a method REINITIALIZE-INSTANCE (BASE-CLASS)
  
        * NB: This may entail some updates to the LTP definition of the
          class SINGLETON, pursuant of refactoring the definition of the
          classes SINGLETON and PROTOTYPE-CLASS onto BASE-CLASS. In a
  