Changeset 264

Timestamp:

Jan 11, 2004, 11:29:47 PM (21 years ago)

Author:

Gary Byers

Message:

Handle the case where &WHOLE is a structured lambda-list in
%destructure-lambda-list.

File:

• trunk/ccl/lib/level-2.lisp (modified) (1 diff)

trunk/ccl/lib/level-2.lisp

@@ -127 +127 @@
                    v)))
         (unless use-whole-var
-          (simple-var w wholeform))
+          (if (atom w)
+            (simple-var w wholeform)
+            (progn
+              (setq w (structured-var "WHOLE" w (if cdr-p `(cdr ,wholeform) wholeform))
+                    cdr-p nil))))
         (simple-var argptr `(make-destructure-state ,@(if cdr-p `((cdr ,w)) `(,w)) ,w ',lambda-list))
         (setq most-recent-binding nil)