Changeset 11776


Ignore:
Timestamp:
Feb 24, 2009, 2:56:46 AM (10 years ago)
Author:
gz
Message:

r11755 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx-basic.lisp

    r11701 r11776  
    596596    (format stream
    597597            "Duplicate definitions of ~s~:[~*~;~:* (as a ~a and a ~a)~]~:[~;, in this file~:[~; and in ~s~]~]"
    598             name from to
     598            (maybe-setf-name name) from to
    599599            (and old-file new-file)
    600600            (neq old-file new-file)
    601601            old-file)))
     602
     603(defun adjust-compiler-warning-args (warning-type args)
     604  (case warning-type
     605    ((:undefined-function :result-ignored) (mapcar #'maybe-setf-name args))
     606    (t args)))
     607
    602608
    603609(defun report-compiler-warning (condition stream)
     
    612618    (format stream ": ")
    613619    (if (typep format-string 'string)
    614       (apply #'format stream format-string (compiler-warning-args condition))
     620      (apply #'format stream format-string (adjust-compiler-warning-args warning-type (compiler-warning-args condition)))
    615621      (funcall format-string condition stream))
    616622    ;(format stream ".")
Note: See TracChangeset for help on using the changeset viewer.