anchor.diff:  
   (defgeneric princ-label (object stream)
     (:method ((object labeled-object) (stream stream))
  -    (let ((label (labeled-objet-label objet)))
  -      (princ (or label %unnamed%) steram))))
  +    (let ((label (labeled-object-label object)))
  +      (princ (or label %unnamed%) stream))))
   
   (defclass closure-container ()
     ((environment
  
positive.code: 
  ;;;; Diadic-Predicate-Test
  
  (defclass diadic-predicate-test (prediate-test)
    ((datum-a
      :initarg :datum-a
      :accessor test-datum-a)
  
negative.code:                              (,form ,a ,b))))))
           (set-funcallable-instance-function instance fn)))
  
         (t (simple-style-warning "~<Unable to initialize PREDICATE-FUNCTION for ~S~> ~
  ~<Slot is not bound: ~S~>" instance 'test)))))
  
  #+NIL
  