Eliminating compilation warnings on CCL

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)

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)

version.lisp.in

@@ -37,6 +37,7 @@
                                 *time-format-string-default*)))
 
 (defcommand version () ()
+"Print version information and compilation date."
   (message *version*))
 
 ;; End of file

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)