Ticket #321: ccl.subtype-style-warning.diff

compiler/nx-basic.lisp

@@ -509 +509 @@
     (:special-fbinding . "Attempt to bind compiler special name: ~s. Result undefined.")
     (:lambda . "Suspicious lambda-list: ~s")
     (:result-ignored . "Function result ignored in call to ~s")
-    (:program-error . "~a")))
+    (:program-error . "~a")
+    (:unsure . "Nonspecific warning")))
 
 
 (defun report-compiler-warning (condition stream)

level-1/l1-error-system.lisp

@@ -70 +70 @@
    (nrefs :initform 1 :accessor compiler-warning-nrefs))
   (:report report-compiler-warning))
 
-(define-condition style-warning (compiler-warning) ())
+(define-condition style-warning (compiler-warning)
+  ((warning-type :initform :unsure)
+   (args :initform '())))
 (define-condition undefined-function-reference (style-warning) ())
 (define-condition macro-used-before-definition (compiler-warning) ())
 (define-condition invalid-arguments (style-warning) ())