anchor.diff:             (let ((slot-name (first slot))
                    (slot-value (second slot)))
                (if (quotablep slot-value)
  -                 ``(,,slot-name ,',slot-value)
  -               ``(,,slot-name ,,slot-value)))))
  +                 ``(,',slot-name ,',slot-value)
  +               ``(,',slot-name ,,slot-value)))))
       `(list ,@(mapcar #'normalize slots))))
   
   (defun canonicalize-slot-names (meta-class slots)
  
positive.code: ;;; modify) is performed elsewhere as these constructs undergo additional
  ;;; transformations.
  ;;;
  ;;; $Id: parser.lisp,v 1.53 2001/04/02 21:25:18 youngde Exp $
  
  (in-package "LISA")
  
  
negative.code:                         (,@(normalize-slots slot-list)))))
                     (t
                      (parsing-error
                       "There's a structural problem with this form: ~S"
                       body))))))
      (handler-case
          (generate-modify)
        (lisa-error (condition)
  