Assign lambda-lists to anonymous lambdas

jscl-project · Sep 8, 2022 · 2514864 · 2514864
1 parent a9dbec7
commit 2514864
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/src/compiler/compiler.lisp b/src/compiler/compiler.lisp
@@ -266,14 +266,12 @@
     (remove nil (mapcar #'third args))))
 
 (defun lambda-name/docstring-wrapper (name docstring lambda-list code)
-  (if (or name docstring)
-      `(selfcall
-        (var (func ,code))
-        ,(when name `(= (get func "fname") ,name))
-        ,(when docstring `(= (get func "docstring") ,docstring))
-	(= (get func "lambdalist") ,(prin1-to-string lambda-list))
-        (return func))
-      code))
+  `(selfcall
+    (var (func ,code))
+    ,(when name `(= (get func "fname") ,name))
+    ,(when docstring `(= (get func "docstring") ,docstring))
+    (= (get func "lambdalist") ,(prin1-to-string lambda-list))
+    (return func)))
 
 (defun lambda-check-argument-count
     (n-required-arguments n-optional-arguments rest-p)