From 3ebe49ba6f986c076ff0ffa12b8f28c840db8319 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 3 Jan 1991 15:47:16 +0000 Subject: [PATCH] Changed LET and LET* to allow var specs like (VAR), as allowed by some ANSI cleanup or other. --- compiler/ir1tran.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index 1ebec8242..a36e4a047 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)))) -- GitLab