（label-variety）関数を無視するようにLispコンパイラに依頼するにはどうすればよいですか？

Question

私はSteeleのCommon Lisp the Languageを見てきました。私は顔が青く、まだこの質問があります。私がコンパイルした場合：

(defun x() 
    (labels ((y())) 
    5)) 
(princ (x)) 
(terpri) 

この処理が行われます。十分なフェア

home:~/clisp/experiments$ clisp -c -q x.lisp 
;; Compiling file /u/home/clisp/experiments/x.lisp ... 
WARNING in lines 1..3 : 
function X-Y is not used. 
Misspelled or missing IGNORE declaration? 
;; Wrote file /u/home/clisp/experiments/x.fas 
0 errors, 1 warning 
home:~/clisp/experiments$ 

を。では、関数yを無視するようにコンパイラにどのように依頼しますか？私はこの試みた：

(defun x() 
    (labels (#+ignore(y())) 
    5)) 
(princ (x)) 
(terpri) 

をし、それが働いた：

home:~/clisp/experiments$ clisp -c -q y.lisp 
;; Compiling file /u/home/clisp/experiments/y.lisp ... 
;; Wrote file /u/home/clisp/experiments/y.fas 
0 errors, 0 warnings 
home:~/clisp/experiments$ 

を何とか私は警告は私がやることを示唆しているものだとは思いません。

私は何をしますか？

Answer 1

GNU CLISPはdeclareの機能をignoredに依頼しています。また

(defun x() 
    (labels ((y())) 
    (declare (ignore (function y))) 
    5)) 

（これはそれがyが実際に使用されているかどうかをユーザーに依存マクロ展開の結果である場合は特に）、

(defun x() 
    (labels ((y())) 
    (declare (ignorable (function y))) 
    5)) 

（あなたが(function y)を書くことが予想される場合はいつでも、 ）代わりに#'yを自由に使用することができます）。