--- 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 _______________________________________________ Stumpwm-devel mailing list Stumpwm-devel@nongnu.org http://lists.nongnu.org/mailman/listinfo/stumpwm-devel