anchor.diff:           :reader get-name)
      (slots :initform nil
             :accessor get-slots)
  +   (locality :reader get-locality)
      (location :initarg :location
                :reader get-location))
     (:documentation
  
positive.code: ;;; File: pattern.lisp
  ;;; Description:
  
  ;;; $Id: pattern.lisp,v 1.21 2001/01/09 21:14:39 youngde Exp $
  
  (in-package :lisa)
  
  
negative.code:                  (binding-table bindings)))
    (labels ((make-slot-variable ()
               (intern (make-symbol (format nil "?~A" (gensym)))))
             (new-slot-binding (var)
               (unless (lookup-binding bindings var)
                 (add-binding bindings
  