anchor.diff:                          (,@(normalize-slots slot-list)))))
                      (t
                       (parsing-error
  -                     "There's a structural error with this form: ~S" body))))))
  +                     "There's a structural problem with this form: ~S"
  +                     body))))))
       (handler-case
           (generate-modify)
         (lisa-error (condition)
  
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:            (let ((slot-name (first slot))
                   (slot-value (second slot)))
               (if (quotablep slot-value)
                   ``(,',slot-name ,',slot-value)
                 ``(,',slot-name ,,slot-value)))))
      `(list ,@(mapcar #'normalize slots))))
  
  (defun canonicalize-slot-names (meta-class slots)
  