GNU clisp：適用できないメソッドに関する警告メッセージを表示しない

Question

このコードは、警告メッセージを除き、必要に応じて機能します。 GNU Common Lispでは、他の可能な警告メッセージを抑制することなく、そのメッセージを抑制するにはどうすればいいですか？ Vatineの種類の返信に応じて

1 (defgeneric zang (x y) 
2 (:documentation "they want you to put documentation here")) 
3 (defmethod zang ((a number) (b string)) 
4 (format t "got to zang ((~s number) (~s string))~%" a b)) 
5 (defmethod zang ((a integer) (b string)) 
6 (format t "got to zang ((~s integer) (~s string))~%" a b) 
7 (when (evenp a) 
8  (format t "passing control to the other guy~%") 
9  (call-next-method (1+ a) "hoo boy") 
10  (format t "returned control from the other guy~%"))) 
11 (defmethod no-applicable-method (zang &rest args) 
12 (format t "no applicable method for (zang ~{~s~^ ~})~%" args)) 
13 (zang 3.5 "hi") 
14 (zang 3 "hi") 
15 (zang 4 "hi") 
16 (zang "hello" "world") 
WARNING: Replacing method #<STANDARD-METHOD (#<BUILT-IN-CLASS T>)> in 
     #<STANDARD-GENERIC-FUNCTION NO-APPLICABLE-METHOD> 
got to zang ((3.5 number) ("hi" string)) 
got to zang ((3 integer) ("hi" string)) 
got to zang ((4 integer) ("hi" string)) 
passing control to the other guy 
got to zang ((5 number) ("hoo boy" string)) 
returned control from the other guy 
no applicable method for (zang "hello" "world") 

EDITは：

は私がすることを試みたが、状況は致命的なエラーに警告からエスカレート：私は思う

(defgeneric zang (x y) 
    (:documentation "they want you to put documentation here")) 
(defmethod zang ((a number) (b string)) 
    (format t "got to zang ((~s number) (~s string))~%" a b)) 
(defmethod zang ((a integer) (b string)) 
    (format t "got to zang ((~s integer) (~s string))~%" a b) 
    (when (evenp a) 
    (format t "passing control to the next guy~%") 
    (call-next-method (1+ a) "hoo boy") 
    (format t "returned control from the next guy~%"))) 
;(defmethod no-applicable-method (zang &rest args) 
; (format t "no applicable method for (zang ~{~s~^ ~})~%" args)) 
(defmethod no-applicable-method ((zang eql #'zang) &rest args) 
    (format t "no applicable method for (zang ~{~s~^ ~})~%" args)) 
(zang 3.5 "hi") 
(zang 3 "hi") 
(zang 4 "hi") 
(zang "hello" "world") 
*** - DEFMETHOD NO-APPLICABLE-METHOD: Invalid specialized parameter in method 
     lambda list ((ZANG EQL #'ZANG) &REST ARGS): (ZANG EQL #'ZANG) 

Answer 1

NO-APPLICABLE-METHODの正しい引数リストを指定する必要があります。 コンパイラを使用する場合（CLISP実装でもCOMPILE-FILEを使用してコンパイルできます）、コンパイル時に不正な引数リストについてのエラーメッセージも表示されます。

例えばLispWorksコンパイラは言う：

**++++ Error between functions: 
An argument is not an atom or list of two elements : (ZANG EQL (FUNCTION ZANG)) 

固定バージョン：

(defgeneric zang (x y) 
    (:documentation "they want you to put documentation here")) 
(defmethod zang ((a number) (b string)) 
    (format t "got to zang ((~s number) (~s string))~%" a b)) 
(defmethod zang ((a integer) (b string)) 
    (format t "got to zang ((~s integer) (~s string))~%" a b) 
    (when (evenp a) 
    (format t "passing control to the next guy~%") 
    (call-next-method (1+ a) "hoo boy") 
    (format t "returned control from the next guy~%"))) 
;(defmethod no-applicable-method (zang &rest args) 
; (format t "no applicable method for (zang ~{~s~^ ~})~%" args)) 

(defmethod no-applicable-method ((zang (eql #'zang)) &rest args) 
    (format t "no applicable method for (zang ~{~s~^ ~})~%" args)) 

例：

(defun test() 
(zang 3.5 "hi") 
(zang 3 "hi") 
(zang 4 "hi") 
(zang "hello" "world")) 

CL-USER 1 > (test) 
got to zang ((3.5 number) ("hi" string)) 
got to zang ((3 integer) ("hi" string)) 
got to zang ((4 integer) ("hi" string)) 
passing control to the next guy 
got to zang ((5 number) ("hoo boy" string)) 
returned control from the next guy 
no applicable method for (zang "hello" "world") 
NIL 

Answer 2

適用できないメソッドのメソッドを次のように定義します。

(defmethod no-applicable-method ((zang (eql #'zang)) &rest args) 
    ...) 

これは、すべての汎用関数に適用されるメソッドを宣言しているため、既に定義されているメソッドを置き換えることをclispが指示している理由です。