From 1113e380c5679a45db6f72b2a2f09cbbc3d1dd18 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 15 Jul 2013 15:56:48 +0200
Subject: LAMBDA: Bail out on complex lambda lists.

---
 sb-eval2.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 3d075f7..52568e0 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -249,6 +249,8 @@
       (multiple-value-bind (required optional restp rest keyp keys allowp auxp aux
                             morep more-context more-count)
           (sb-int:parse-lambda-list lambda-list)
+        (when (or optional restp keyp allowp auxp morep)
+          (return-from prepare-lambda (lambda (env) (lambda (&rest args) (error "NYI")))))
        (if (< n 20)
            (specialize m% n (loop for i from 0 below 20 collect i)
              (let ((args (loop for i from 0 below m%
-- 
cgit v1.2.3