summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sb-eval2.lisp4
1 files changed, 3 insertions, 1 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index f5c3ad8..6b5ffc1 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -455,7 +455,9 @@
(sb-int:parse-lambda-list lambda-list)
(declare (ignorable required optional restp rest keyp keys allowp auxp aux
morep more-context more-count))
- (let* ((argvars lambda-list) ;fixme
+ (when (or optional restp keyp allowp auxp morep)
+ (return-from prepare-lambda (lambda (env) (lambda (&rest args) (error "NYI")))))
+ (let* ((argvars lambda-list) ;fixme
(n (length (the list lambda-list)))
(envp (maybe-closes-over-p `(progn ,@body) argvars))
(new-context (if envp