anchor.diff:  (defgeneric (setf object-name) (new-value object))
   
   (defclass associative-object ()
  +  ;; FIXME - used in AFFTA, may be of some limited use in any "elsewhere"
  +  ;;
  +  ;; see also: ../mop/aclass.lisp
     ((name
       :accessor object-name
       :type symbol
  +    ;; ED. NB: Note that this proposes a slot with type SYMBOL as an "Index Key" slot
       :initarg :name))
  -  (:documentation
  -   "Analogy of an associatve list element, onto CLOS"))
  +  (:documentation "Prototype"))
  +
  +;; Ed. NB: These generalized methods were defined to use PRINC, in lieu
  +;; of making nested calls to PRINT-NAME or PRINT-LABEL for an object-name
  +;; known to be of type SYMBOL (FIXME: Cheap decision)
   
   (defmethod print-name ((object associative-object) (stream stream))
     (princ (object-name object) stream))
  
positive.code: ;; => "CL:STRING"
  
  
  (defgeneric object-print-name (object)
    ;; FIXME: #I18N
  
    ;; FIXME: Generic function FTYPE declarations
  
negative.code:   (:method (object (stream stream))
      (princ object stream))
    (:method ((object package) (stream stream))
      ;; prefer package short name - cf the corresponding method
      ;; onto OBJECT-PRINT-LABEL
      (print-label (object-print-label object) stream))
    (:method ((object class) (stream stream))
      (print-label (class-name object) stream))
    (:method ((object function) (stream stream))
      (print-label (function-name object) stream))
    (:method ((object symbol) (stream stream))
      ;; FIXME - this duplicates PRINT-NAME (SYMBOL STREAM)
      ;; in lieu of making any nested call to PRINT-NAME. The main
      ;; difference is in the call to OBJECT-PRINT-LABEL for the symbol
      ;; package of an interned symbol - in lieu of OBJECT-PRINT-NAME in
      ;; the PRINT-NAME form of this method definition
      ;;
      ;; It may represents something of a PRINT-CANONC-SYMBOL macro, broadly.
      (multiple-value-bind (status pkg)
  	(symbol-status object)
        (let ((keyword-p
  	     (and pkg (eq pkg (find-package '#:keyword)))))
  	(cond
  	  (keyword-p
             ;; [NB]
  	   (write-char #\: stream))
            ;; NB : may fall through to PRINT-LABEL for PKG
  	  (pkg (princ (object-print-label pkg) stream))
  	  (t (write-char #\# stream)
  	     (write-char #\: stream)))
  	(case status
  	  (:external
  	   (unless keyword-p ;; [NB]
  	     (write-char #\: stream)))
  	  ((:internal :inherited)
  	   (write-char #\: stream)
  