Changeset 15583

Timestamp:

05/23/22 06:23:42 (19 months ago)

Author:

Mark Evenson

Message:

Emit compiler diagnostics when falling back to interpreted form

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -881 +881 @@
                     (when (eq form in)
                       (return))
-                    (if (>= (length (format nil "~a" form)) 65536)
-                        ;; Following the solution propose here:
-                        ;; see https://github.com/armedbear/abcl/issues/246#issuecomment-698854437
-                        ;; just include the offending interpreted form in the loader
-                        ;; using it instead of the compiled representation
-                        (write (ext:macroexpand-all form *compile-file-environment*)
-                               :stream out)
-                        (process-toplevel-form form out nil))
-                    )))
+                    (cond 
+                      ((>= (length (format nil "~a" form)) 65536)
+                       ;; Following the solution propose here:
+                       ;; see https://github.com/armedbear/abcl/issues/246#issuecomment-698854437
+                       ;; just include the offending interpreted form in the loader
+                       ;; using it instead of the compiled representation
+                       (diag "Falling back to interpreted version of top-level form longer ~
+                              than 65535 bytes")
+                       (write (ext:macroexpand-all form *compile-file-environment*)
+                              :stream out))
+                      (t 
+                       (process-toplevel-form form out nil))))))
               (finalize-fasl-output)
               (dolist (name *fbound-names*)