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