[STUMP] [PATCH 4/4] Eliminating compilation warnings on CCL

[Adlai Chandrasekhar]

---
 floating-group.lisp |    1 +
 help.lisp           |    1 +
 version.lisp.in     |    1 +
 wrappers.lisp       |    2 ++
 4 files changed, 5 insertions(+), 0 deletions(-)

diff --git a/floating-group.lisp b/floating-group.lisp
index 7526dba..b6cfc70 100644
--- a/floating-group.lisp
+++ b/floating-group.lisp
@@ -186,6 +186,7 @@
                    (xlib:drawable-y (window-xwin window)))))
        (multiple-value-bind (relx rely same-screen-p child state-mask)
            (xlib:query-pointer (window-parent window))
+         (declare (ignore same-screen-p child))
          (let ((initial-width (xlib:drawable-width (slot-value window 
'parent)))
                (initial-height (xlib:drawable-height (slot-value window 
'parent))))
            (labels ((move-window-event-handler (&rest event-slots &key 
event-key &allow-other-keys)
diff --git a/help.lisp b/help.lisp
index cb07492..ade6f00 100644
--- a/help.lisp
+++ b/help.lisp
@@ -64,6 +64,7 @@
                         (columnize data cols))))
 
 (defcommand commands () ()
+"List all available commands."
   (let* ((screen (current-screen))
          (data (all-commands))
          (cols (ceiling (length data)
diff --git a/version.lisp.in b/version.lisp.in
index 695c6b5..959b9af 100644
--- a/version.lisp.in
+++ b/version.lisp.in
@@ -37,6 +37,7 @@
                                 *time-format-string-default*)))
 
 (defcommand version () ()
+"Print version information and compilation date."
   (message *version*))
 
 ;; End of file
diff --git a/wrappers.lisp b/wrappers.lisp
index f95599a..f813bf8 100644
--- a/wrappers.lisp
+++ b/wrappers.lisp
@@ -176,6 +176,7 @@
                     (find-symbol "UNIX-FILE-KIND" :sb-unix))))
     (defun pathname-is-executable-p (pathname)
       "Return T if the pathname describes an executable file."
+      (declare (ignorable pathname))
       #+sbcl
       (let ((filename (coerce (sb-ext:native-namestring pathname) 
'base-string)))
         (and (eq (funcall file-kind-fun filename) :file)
@@ -370,6 +371,7 @@ regarding files in sysfs. Data is read in chunks of 
BLOCKSIZE bytes."
   (error "unimplemented"))
 
 (defun execv (program &rest arguments)
+  (declare (ignorable program arguments))
   ;; FIXME: seems like there should be a way to do this in sbcl the way it's 
done in clisp. -sabetts
   #+sbcl
   (sb-alien:with-alien ((prg sb-alien:c-string program)
-- 
1.6.6