Changeset 15582


Ignore:
Timestamp:
05/23/22 06:23:41 (9 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

    r15581 r15582  
    9696  "The stream to emit compiler diagnostic messages to, or nil to muffle output.")
    9797(export '*compiler-diagnostic*)
    98 (defmacro diag (fmt &rest args)
    99   `(format *compiler-diagnostic* "~&SYSTEM::*COMPILER-DIAGNOSTIC* ~A~&" (format nil ,fmt ,@args)))
     98(defun diag (format &rest args)
     99  (apply #'cl:format
     100         *compiler-diagnostic*
     101         (cl:concatenate 'string "~&SYSTEM::*COMPILER-DIAGNOSTIC* " format "~&")
     102         (when args
     103           args)))
     104         
    100105
    101106(declaim (ftype (function (t) t) verify-load))
Note: See TracChangeset for help on using the changeset viewer.