Changeset 11672

Timestamp:

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

Author:

gb

Message:

Finally apply the contributed patch to ticket:321.

Location:

release/1.2/source

Files:

• compiler/nx-basic.lisp (modified) (1 diff)
• level-1/l1-error-system.lisp (modified) (1 diff)

release/1.2/source/compiler/nx-basic.lisp

@@ -509 +509 @@
     (:lambda . "Suspicious lambda-list: ~s")
     (:result-ignored . "Function result ignored in call to ~s")
-    (:program-error . "~a")))
+    (:program-error . "~a")
+    (:unsure . "Nonspecific warning.")))
 
 

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))