Changeset 11672 for release/1.2/source/level-1/l1-error-system.lisp

Timestamp:

Jan 31, 2009, 8:42:04 AM (12 years ago)

Author:

gb

Message:

Finally apply the contributed patch to ticket:321.

File:

• release/1.2/source/level-1/l1-error-system.lisp (modified) (1 diff)

release/1.2/source/level-1/l1-error-system.lisp

@@ -71 +71 @@
   (:report report-compiler-warning))
 
-(define-condition style-warning (compiler-warning))
+(define-condition style-warning (compiler-warning)
+  ((warning-type :initform :unsure)
+   (args :initform nil)))
+
 (define-condition undefined-function-reference (style-warning))
 (define-condition macro-used-before-definition (compiler-warning))