anchor.diff:      :next environment
       :name symbol
       :expansion expansion))
  +
  +(defmethod print-object ((object symbol-macro) stream)
  +  (print-unreadable-object (object stream :type t :identity t)
  +    (format stream "~s ~s" (name object) (expansion object))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
  
positive.code:     :next environment
      :name symbol
      :expander expander))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code:     :quality quality
      :value value))
  
  (defmethod print-object ((object optimize) stream)
    (print-unreadable-object (object stream :type t :identity t)
      (format stream "~s ~s" (quality object) (value object))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; INLINE.
  