Changeset 11755


Ignore:
Timestamp:
Feb 22, 2009, 10:45:29 AM (10 years ago)
Author:
gb
Message:

Catch at least a few cases where the compiler might reference an
internal SETF package function name and print (SETF FOO) rather
than the SETF package symbol.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx-basic.lisp

    r11673 r11755  
    602602    (format stream
    603603            "Duplicate definitions of ~s~:[~*~;~:* (as a ~a and a ~a)~]~:[~;, in this file~:[~; and in ~s~]~]"
    604             name from to
     604            (maybe-setf-name name) from to
    605605            (and old-file new-file)
    606606            (neq old-file new-file)
    607607            old-file)))
     608
     609(defun adjust-compiler-warning-args (warning-type args)
     610  (case warning-type
     611    ((:undefined-function :result-ignored) (mapcar #'maybe-setf-name args))
     612    (t args)))
     613
    608614
    609615(defun report-compiler-warning (condition stream)
     
    618624    (format stream ": ")
    619625    (if (typep format-string 'string)
    620       (apply #'format stream format-string (compiler-warning-args condition))
     626      (apply #'format stream format-string (adjust-compiler-warning-args warning-type (compiler-warning-args condition)))
    621627      (funcall format-string condition stream))
    622628    ;(format stream ".")
Note: See TracChangeset for help on using the changeset viewer.