From 9a8ab9219e03e04c65b3a465aaeb5c973020a2fb Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Mon, 15 Jul 2013 15:56:48 +0200 Subject: LAMBDA: Bail out on complex lambda lists. Conflicts: sb-eval2.lisp --- sb-eval2.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3