anchor.diff:      :name symbol
       :identity identity))
   
  +(defmethod print-object ((object tag) stream)
  +  (print-unreadable-object (object stream :type t :identity t)
  +    (format stream "~s ~s" (name object) (identity object))))
  +
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
   ;;; VARIABLE-TYPE.
  
positive.code:     :name function-name
      :type type))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; VARIABLE-IGNORE.
  
negative.code:     :next environment
      :name symbol))
  
  (defmethod print-object ((object special-variable) stream)
    (print-unreadable-object (object stream :type t :identity t)
      (format stream "~s" (name object))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; SYMBOL-MACRO.
  