Changeset 12589

Timestamp:

Aug 15, 2009, 10:47:30 PM (10 years ago)

Author:

gz

Message:

Two more fixes on gf keyword warnings - handle interactive case, and fix format string for one bad keyword

File:

• branches/working-0711/ccl/compiler/nx-basic.lisp (modified) (3 diffs)

branches/working-0711/ccl/compiler/nx-basic.lisp

@@ -613 +613 @@
       (:unknown-gf-keywords
          (let ((badguys (cadr reason)))
+           (when (and (consp badguys) (null (%cdr badguys))) (setq badguys (car badguys)))
            (format stream "the keyword argument~:[ ~s is~;s~{ ~s~^~#[~; and~:;,~]~} are~] not recognized by "
+
                    (consp badguys) badguys))))
     (format stream
@@ -620 +622 @@
               (:global-mismatch "the current global definition of ~s")
               (:environment-mismatch "the definition of ~s visible in the current compilation unit.")
-              (:lexical-mismatch "the lexically visible definition of ~s"))
+              (:lexical-mismatch "the lexically visible definition of ~s")
+              ;; This can happen when compiling without compilation unit:
+              (:deferred-mismatch "~s"))
             callee)))
 
@@ -640 +644 @@
     (:lexical-mismatch . report-compile-time-argument-mismatch)    
     (:ftype-mismatch . report-compile-time-argument-mismatch)
+    (:deferred-mismatch . report-compile-time-argument-mismatch)
     (:type . "Type declarations violated in ~S")
     (:type-conflict . "Conflicting type declarations for ~S")