Changeset 11804 for trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

Timestamp:

04/29/09 22:00:18 (14 years ago)

Author:

ehuelsmann

Message:

LET/LET* bindings can be (in case of a CONS)
of length 1 or 2 (not only 2).

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

@@ -151 +151 @@
        (dolist (,varspec ,varlist)
    (cond ((consp ,varspec)
-              ;; FIXME Currently this error is signalled by the precompiler.
-    (unless (= (length ,varspec) 2)
+                ;; Even though the precompiler already signals this
+                ;; error, double checking can't hurt; after all, we're
+                ;; also rewriting &AUX into LET* bindings.
+    (unless (<= 1 (length ,varspec) 2)
       (compiler-error "The LET/LET* binding specification ~S is invalid."
           ,varspec))