Changeset 15386 for trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

Timestamp:

10/01/20 22:29:09 (3 years ago)

Author:

Mark Evenson

Message:

precompiler: be more careful in optimizing lambda precompilation

Fixes <https://abcl.org/trac/ticket/474>.

File:

• trunk/abcl/src/org/armedbear/lisp/precompiler.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/precompiler.lisp

@@ -407 +407 @@
     (or
      ;;give a chance for someone to transform single-form function bodies
-     (and (= (length body) 1) (consp (car body)) (get (caar body) 'sys::function-position-lambda-transform)
-    (funcall (get (caar body) 'sys::function-position-lambda-transform) (caar body) (car body) (mapcar #'precompile1 args)))
+     (and (= (length body) 1)
+          (consp (car body))
+          (symbolp (caar body))
+          (get (caar body) 'sys::function-position-lambda-transform)
+    (funcall (get (caar body) 'sys::function-position-lambda-transform)
+                   (caar body) (car body) (mapcar #'precompile1 args)))
      (and simple-arglist?
     (let ((arglist-length (if (memq '&aux arglist) (position '&aux arglist) (length arglist))))