anchor.diff:                        `(,name ,field ,constraint))
                        (t
                         (parsing-error
  -                       "In pattern ~S there are type problems with this slot: ~S" slot)))))
  +                       "In pattern ~S there are type problems with this slot: ~S"
  +                       pattern slot)))))
              (parse-pattern-body (body slots)
                (let ((slot (first body)))
                  (cond ((consp slot)
  
positive.code:         (find-before *rule-separator* body :test #'eq)
        (if (not (null remains))
            (values (parse-lhs lhs nil)
                    (parse-rhs (find-after *rule-separator remains :test #'eq)))
          (parsing-error "Missing rule separator.")))))
  
  (defun make-rule-pattern (template)
  
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")
  
  