From 8d7088f386b8ad39ae428692a2ea03ed5faa490e Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 15 Jul 2013 00:25:12 +0200 Subject: Remove a temporary code note. --- sb-eval2.lisp | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 610ad50..8982405 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -393,33 +393,6 @@ (dolist (form* body* result) (setq result (funcall (the eval-closure form*) env))))))) -#+ (or) - (if (maybe-closes-over-p `(progn ,@body) vars) - (let* ((new-context - (context-add-env-lexicals context - (mapcar #'first bindings*))) - (body* - (prepare-progn body new-context))) - (lambda (env) - (let ((new-env (make-environment env n))) - (loop for i from 0 below n - for val* in values* - do (setf (environment-value new-env 0 i) - (funcall (the eval-closure val*) env))) - (funcall body* new-env)))) - (let* ((new-context - (context-add-stack-lexicals context - (mapcar #'first bindings*))) - (body* - (prepare-progn body new-context))) - (lambda (env) - (with-stack-frame n - (loop for i from 0 below n - for val* in values* - do (setf (stack-ref i) - (funcall (the eval-closure val*) env))) - (funcall body* env))))) - (declaim (ftype (function (list context) eval-closure) prepare-lambda)) (defun prepare-lambda (lambda-form context) (destructuring-bind (lambda-list &rest body) lambda-form -- cgit v1.2.3