Changeset 15582 for trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Timestamp:

05/23/22 06:23:41 (10 months ago)

Author:

Mark Evenson

Message:

Fix internal compiler diagnostic macro to actually work

Replace SYS:DIAG compiler diagnostic macro with a function.

TODO replace the COMPILER-DIAGNOSTIC machinery with actual warnings
that can be muffled. The whole diagnostic edifice should be rethought.

File:

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

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

@@ -96 +96 @@
   "The stream to emit compiler diagnostic messages to, or nil to muffle output.")
 (export '*compiler-diagnostic*)
-(defmacro diag (fmt &rest args)
-  `(format *compiler-diagnostic* "~&SYSTEM::*COMPILER-DIAGNOSTIC* ~A~&" (format nil ,fmt ,@args)))
+(defun diag (format &rest args)
+  (apply #'cl:format
+         *compiler-diagnostic*
+         (cl:concatenate 'string "~&SYSTEM::*COMPILER-DIAGNOSTIC* " format "~&")
+         (when args
+           args)))
+          
 
 (declaim (ftype (function (t) t) verify-load))