anchor.diff:  ;;; T.
   
   (defun special-operator-p (symbol)
  -  (unless (symbolp symbol)
  -    (error 'type-error :datum symbol :expected-type 'symbol))
  +  (declare (cl:type symbol symbol))
     (let ((entry (find symbol (special-operators *global-environment*)
   		     :key #'name :test #'eq)))
       (not (null entry))))
  
positive.code: ;;; macro entry is the one that is valid.  
  
  (defun fdefinition (function-name)
    (unless (function-name-p function-name)
      (error "not a function name ~s" function-name))
    ;; First see if there is a global macro entry with the right name.
    (let ((macro-entry
  	  ;; We can use EQ to test the name because names
  
negative.code: ;;; this case too.
  
  (defun (setf symbol-value) (new-value symbol)
    (declare (symbol symbol))
    ;; Handle keyword symbols specially here.
    (when (keywordp symbol)
      (error "attempt to change the value of a keyword."))
  