diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 1ebec8242b7042779d2958146cdecf7268061ef2..a36e4a047b9c254227dda8a514924d7f6ee40785 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -2532,7 +2532,7 @@ (names (cons spec var)) (vals nil))) (t - (when (/= (length spec) 2) + (unless (<= 1 (length spec) 2) (compiler-error "Malformed ~S binding spec: ~S." context spec)) (let* ((name (first spec)) (var (varify-lambda-arg name (names))))