anchor.diff:  ;;; modify) is performed elsewhere as these constructs undergo additional
   ;;; transformations.
   ;;;
  -;;; $Id: parser.lisp,v 1.53 2001/04/02 21:25:18 youngde Exp $
  +;;; $Id: parser.lisp,v 1.54 2001/04/03 01:03:44 youngde Exp $
   
   (in-package "LISA")
   
  
positive.code:              (cond ((and (symbolp class)
                           (variablep binding)
                           (consp slots))
                      (let ((slot-list
                             (canonicalize-slot-names
                              (find-meta-class class) slots)))
  
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)
  