anchor.diff:     "This class manages the mechanics of executing arbitrary Lisp code."))
   
   (defun create-function-context (funcall token)
  -  (labels ((make-lexical-binding (binding token)
  +  (labels ((make-lexical-binding (binding)
                (let ((fact (find-fact token (get-location binding))))
                  (cl:assert (not (null fact)) ()
                    "No fact for location ~D." (get-location binding))
  -               `(,(get-name binding) ,(get-slot-value fact (get-slot-name binding)))))
  +               `(,(get-name binding) 
  +                 ,(get-slot-value fact (get-slot-name binding)))))
              (make-context ()
              `(lambda ()
                 (let (,@(mapcar #'(lambda (binding)
  
positive.code:                 ,@(get-forms funcall)))))
      (eval (make-context))))
  
  (defmethod evaluate ((self funcall) token)
    (funcall (create-function-context self token)))
  
  (defun make-funcall (forms bindings)
    (make-instance 'funcall :forms forms :bindings bindings))
  
  
negative.code: ;;; Description: This class manages the mechanics of executing arbitrary Lisp
  ;;; code.
  
  ;;; $Id: funcall.lisp,v 1.3 2001/01/04 22:13:08 youngde Exp $
  
  (in-package :lisa)
  
  (defclass function-call ()
    ((forms :initarg :forms
            :reader get-forms)
     (bindings :initarg :bindings
  