master: sb-eval: don't accept (lambda non-list)

The branch "master" has been updated in SBCL:
       via  c3fc019edfa513276e2c42b7913a3e344abc810e (commit)
      from  fc9c2223bc49b7b6eec4945769d096fe43330df7 (commit)

- Log -----------------------------------------------------------------
commit c3fc019edfa513276e2c42b7913a3e344abc810e
Author: Stas Boukarev <[email protected]>
Date:   Wed Apr 22 23:14:57 2026 +0300

    sb-eval: don't accept (lambda non-list)
---
 src/code/full-eval.lisp | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/code/full-eval.lisp b/src/code/full-eval.lisp
index 18b39ba1f..9ab5b10f7 100644
--- a/src/code/full-eval.lisp
+++ b/src/code/full-eval.lisp
@@ -638,15 +638,15 @@
              (lambda-list (car rest))
              ((forms documentation declarations debug-lambda-list)
               (parse-lambda-headers (cdr rest) :doc-string-allowed t)))
-       (make-interpreted-function :name name
-                                  :lambda-list lambda-list
-                                  :debug-lambda-list
-                                  (if (eq debug-lambda-list :unspecified)
-                                      lambda-list debug-lambda-list)
-                                  :env env :body forms
-                                  :documentation documentation
-                                  :source-location (sb-c::make-definition-source-location)
-                                  :declarations declarations)))
+    (make-interpreted-function :name name
+                               :lambda-list (the list lambda-list)
+                               :debug-lambda-list
+                               (if (eq debug-lambda-list :unspecified)
+                                   lambda-list debug-lambda-list)
+                               :env env :body forms
+                               :documentation documentation
+                               :source-location (sb-c::make-definition-source-location)
+                               :declarations declarations)))
 
 (defun eval-progn (body env)
   (let ((previous-exp nil))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL