anchor.diff:  (defun is-localized-patternp (pattern)
     (declare (type (pattern pattern)))
     (get-locality pattern))
  +
  +(defmethod print-object ((self pattern) strm)
  +  (print-unreadable-object (self strm :identity t :type t)
  +    (format strm "name ~S" (get-name self))))
   
   (defmethod initialize-instance :after ((self pattern) &key (slot-list nil))
     (mapc #'(lambda (desc)
  
positive.code: ;;; File: pattern.lisp
  ;;; Description:
  
  ;;; $Id: pattern.lisp,v 1.27 2001/01/17 22:06:08 youngde Exp $
  
  (in-package :lisa)
  
  
negative.code:              (let ((slot (first slots)))
                 (cond ((null slot)
                        (values t))
                       ((or (not (is-localp (get-value slot)))
                            (not (get-constraint-locality (get-constraint slot))))
                        (values nil))
                       (t
                        (get-slot-locality (rest slots)))))))
  