Changeset 11673


Ignore:
Timestamp:
Jan 31, 2009, 8:42:53 AM (11 years ago)
Author:
gb
Message:

Finally apply the contributed patch to ticket:321 in the trunk.

Location:
trunk/source
Files:
2 edited

Legend:

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

    r11420 r11673  
    595595    (:result-ignored . "Function result ignored in call to ~s")
    596596    (:duplicate-definition . report-compile-time-duplicate-definition)
    597     (:program-error . "~a")))
     597    (:program-error . "~a")
     598    (:unsure . "Nonspecific warning")))
    598599
    599600(defun report-compile-time-duplicate-definition (condition stream)
  • trunk/source/level-1/l1-error-system.lisp

    r11664 r11673  
    7171  (:report report-compiler-warning))
    7272
    73 (define-condition style-warning (compiler-warning) ())
     73(define-condition style-warning (compiler-warning)
     74  ((warning-type :initform :unsure)
     75   (args :initform nil)))
    7476(define-condition undefined-function-reference (style-warning) ())
    7577(define-condition macro-used-before-definition (compiler-warning) ())
Note: See TracChangeset for help on using the changeset viewer.