diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-15 00:25:12 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-15 00:25:12 +0200 |
| commit | 8d7088f386b8ad39ae428692a2ea03ed5faa490e (patch) | |
| tree | 7a33b8b5560f5110245cfaad9a91819d96c78f73 | |
| parent | ed8c2eb04279c1d974abecc0c6715ab464eac66f (diff) | |
Remove a temporary code note.
| -rw-r--r-- | sb-eval2.lisp | 27 |
1 files changed, 0 insertions, 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 |