anchor.diff:                                       &key &allow-other-keys)
     (declare (ignore initargs))
     (when-slot-init (instance lambda-function slot-names)
  -                  (setf (test-lambda-function instance)
  -                        (compile nil (test-lambda-form instance)))))
  -
  -#+NIL
  +    (when (slot-boundp instance 'lambda-form)
  +      (setf (test-lambda-function instance)
  +            (compile nil (test-lambda-form instance))))))
  +
  +#+NIL ;; regression test - lisp-test initialization
   (let ((inst 
          (make-instance 
           'lisp-test 
  
positive.code:     :accessor %test-cleanup-function)
     ))
  
  (define-condition test-not-found (container-condition entity-not-found)
    ()
    (:report format-condition))
  
negative.code:     :initarg :predicate
      :type function
      :accessor test-predicate)
     ;; NOTE: The following slots are defined with non-conventional
     ;; accessors, below.
     (setup-function
  