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

File ccl.subtype-style-warning.diff, 1.2 KB (added by S11001001, 6 years ago)

fix for this issue

  • compiler/nx-basic.lisp

     
    509509    (:special-fbinding . "Attempt to bind compiler special name: ~s. Result undefined.") 
    510510    (:lambda . "Suspicious lambda-list: ~s") 
    511511    (:result-ignored . "Function result ignored in call to ~s") 
    512     (:program-error . "~a"))) 
     512    (:program-error . "~a") 
     513    (:unsure . "Nonspecific warning"))) 
    513514 
    514515 
    515516(defun report-compiler-warning (condition stream) 
  • level-1/l1-error-system.lisp

     
    7070   (nrefs :initform 1 :accessor compiler-warning-nrefs)) 
    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 '()))) 
    7476(define-condition undefined-function-reference (style-warning) ()) 
    7577(define-condition macro-used-before-definition (compiler-warning) ()) 
    7678(define-condition invalid-arguments (style-warning) ())