anchor.diff:               (let ((head (first pattern)))
                  (if (has-meta-classp head)
                      (values head)
  -                 (parsing-error "This pattern has no meta class: ~S" head))))
  +                 (parsing-error "This pattern has no meta class: ~S" pattern))))
              (parse-slot (slot)
                (with-slot-components ((name field constraint) slot)
                  (cond ((and (symbolp name)
  
positive.code:                       `(,name ,field ,constraint))
                       (t
                        (parsing-error
                         "In pattern ~S there are type problems with this slot: ~S" slot)))))
             (parse-pattern-body (body slots)
               (let ((slot (first body)))
                 (cond ((consp slot)
  
negative.code: ;;; modify) is performed elsewhere as these constructs undergo additional
  ;;; transformations.
  ;;;
  ;;; $Id: parser.lisp,v 1.48 2001/03/30 23:14:40 youngde Exp $
  
  (in-package "LISA")
  
  