anchor.diff:  ;;;
   ;;; Class GO-TAG-ENTRY.
   
  -(defclass go-tag-entry (tag-space definition-entry)
  +(defclass go-tag-entry
  +    (base-entry named-entry tag-space definition-entry)
     ())
   
   (defun make-go-tag-entry (name tag)
  
positive.code: ;;; the name is a special operator.
  ;;;
  ;;; For a special operator we do nothing.
  ;;;
  ;;; We could remove the entry altogether, but we have chosen not to do
  ;;; that.  The reason is that we may have other entries that refer to
  
negative.code: 	     (error "function already has a type proclamation"))))))
  
  (defun proclaim-special (name)
    (pushnew (make-special-variable-entry name)
  	   (variables *global-environment*)
  	   :key #'name
  	   :test #'eq))
  