From 93bd302c889c72b6934e16cfd746604dfa227952 Mon Sep 17 00:00:00 2001 From: Didier Verna Date: Fri, 25 Mar 2011 12:30:51 +0100 Subject: [PATCH] Fix a couple of CLISP warnings. clisp/ ChangeLog addition: 2011-03-25 Didier Verna * util.lisp (clisp/stream-line-width): Ignore INPUT-FD. src/options/ ChangeLog addition: 2011-03-25 Didier Verna * option.lisp (option-sticky-distance): Ignore NAMEARG. --- clisp/util.lisp | 1 + src/options/option.lisp | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/clisp/util.lisp b/clisp/util.lisp index d5a328d..69f2893 100644 --- a/clisp/util.lisp +++ b/clisp/util.lisp @@ -34,6 +34,7 @@ This function relies on CFFI." (multiple-value-bind (input-fd output-fd) (ext:stream-handles stream) + (declare (ignore input-fd)) (when output-fd (cffi:with-foreign-object (winsize 'winsize) (let ((result (cffi:foreign-funcall "ioctl" diff --git a/src/options/option.lisp b/src/options/option.lisp index 514fa83..32d945d 100644 --- a/src/options/option.lisp +++ b/src/options/option.lisp @@ -178,8 +178,8 @@ If OPTION matches, return the length of OPTION's short name; otherwise 0.") ;; #### NOTE: the consequence of this method returning 0 is that ;; non-valued options (i.e. flags) won't ever get a cmdline-argument in ;; retrieve-from-short-call, hence the assertion there. - #+(or ccl ecl) (declare (ignore namearg)) - #+ecl (declare (ignore option)) + #+(or ccl ecl clisp) (declare (ignore namearg)) + #+ecl (declare (ignore option)) 0)) -- 2.11.4.GIT