From: Kevin M. Rosenberg Date: Sun, 31 Dec 2006 18:42:10 +0000 (+0000) Subject: r11421: avoid compiler warnings X-Git-Tag: v1.96~9 X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=4b512145081c369cb1dbfe579a4dfd5a32476b92 r11421: avoid compiler warnings --- diff --git a/ChangeLog b/ChangeLog index 5599a7b..d3cd924 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,6 @@ +31 Dec 2006 Kevin Rosenberg + * impl.lisp, sockets.lisp, equal.lisp, datetime.lisp: Declare ignored variables + 29 Nov 2006 Kevin Rosenberg * Version 1.92 * strings.lisp: Add uri-query-to-alist diff --git a/datetime.lisp b/datetime.lisp index 51167a9..59c1b3e 100644 --- a/datetime.lisp +++ b/datetime.lisp @@ -41,7 +41,7 @@ (multiple-value-bind (sec min hr day mon year dow daylight-p zone) (decode-universal-time ut) (declare (ignore daylight-p zone)) - (format nil "~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~d ~[Jan~;Feb~;Mar~;Apr~;May~;Jun~;Jul~;Aug~;Sep~;Oct~;Nov~;Dec~] ~d ~2,'0d:~2,'0d:~2,'0d" + (format nil "~[Mon~;Tue~;Wed~;Thu~;Fri~;Sat~;Sun~], ~d ~[Jan~;Feb~;Mar~;Apr~;May~;Jun~;Jul~;Aug~;Sep~;Oct~;Nov~;Dec~] ~d ~2,'0d:~2,'0d:~2,'0d" dow day (1- mon) @@ -95,6 +95,7 @@ (defun monthname (stream arg colon-p at-p &optional width (mincol 0) (colinc 1) (minpad 0) (padchar #\Space)) "Print the name of the month (1=January) corresponding to ARG on STREAM. This is intended for embedding in a FORMAT directive: WIDTH governs the number of characters of text printed, MINCOL, COLINC, MINPAD, PADCHAR work as for ~A" + (declare (ignore colon-p)) (let ((monthstring (cdr (assoc arg *monthnames*)))) (if (not monthstring) (return-from monthname nil)) (let ((truncate (if width (min width (length monthstring)) nil))) @@ -103,7 +104,7 @@ mincol colinc minpad padchar (subseq monthstring 0 truncate))))) -;;;; Daylight Saving Time calculations +;;;; Daylight Saving Time calculations ;; Daylight Saving Time begins for most of the United States at 2 ;; a.m. on the first Sunday of April. Time reverts to standard time at diff --git a/equal.lisp b/equal.lisp index eb9474c..abc8e39 100644 --- a/equal.lisp +++ b/equal.lisp @@ -19,7 +19,7 @@ (in-package #:kmrcl) - + (defun generalized-equal (obj1 obj2) (if (not (equal (type-of obj1) (type-of obj2))) (progn @@ -96,7 +96,9 @@ (when (typep class 'standard-class) (nconc (mapcar #'car (ccl:class-instance-slots class)) (mapcar #'car (ccl:class-class-slots class))))) - #-(or allegro lispworks cmu mcl sbcl scl openmcl) + #-(or allegro lispworks cmu sbcl scl (and mcl (not openmcl))) + (declare (ignore c-name)) + #-(or allegro lispworks cmu sbcl scl (and mcl (not openmcl))) (error "class-slot-names is not defined on this platform") ) @@ -115,7 +117,9 @@ (let* ((sd (gethash s-name ccl::%defstructs%)) (slots (if sd (ccl::sd-slots sd)))) (mapcar #'car (if (symbolp (caar slots)) slots (cdr slots)))) - #-(or allegro lispworks cmu sbcl scl mcl) + #-(or allegro lispworks cmu sbcl scl (and mcl (not openmcl))) + (declare (ignore s-name)) + #-(or allegro lispworks cmu sbcl scl (and mcl (not openmcl))) (error "structure-slot-names is not defined on this platform") ) diff --git a/impl.lisp b/impl.lisp index 93fe3f7..7862ca5 100644 --- a/impl.lisp +++ b/impl.lisp @@ -35,7 +35,7 @@ new-dir) :name nil :type nil :version nil :defaults path) path)))) - + (defun probe-directory (filename &key (error-if-does-not-exist nil)) (let* ((path (canonicalize-directory-name filename)) @@ -118,11 +118,12 @@ (defun copy-file (from to &key link overwrite preserve-symbolic-links (preserve-time t) remove-destination force verbose) #+allegro (sys:copy-file from to :link link :overwrite overwrite - :preserve-symbolic-links preserve-symbolic-links + :preserve-symbolic-links preserve-symbolic-links :preserve-time preserve-time :remove-destination remove-destination :force force :verbose verbose) #-allegro + (declare (ignore verbose preserve-symbolic-links overwrite)) (cond ((and (typep from 'stream) (typep to 'stream)) (copy-binary-stream from to)) @@ -140,7 +141,7 @@ (t (when (and (or force remove-destination) (probe-file to)) (delete-file to)) - (let* ((options (if preserve-time + (let* ((options (if preserve-time "-p" "")) (cmd (format nil "cp ~A ~A ~A" options (namestring from) (namestring to)))) diff --git a/sockets.lisp b/sockets.lisp index 74b4f36..41c751c 100644 --- a/sockets.lisp +++ b/sockets.lisp @@ -27,26 +27,30 @@ setsockopt SO_REUSEADDR if :reuse is not nil" :protocol :tcp))) (if reuse (setf (sb-bsd-sockets:sockopt-reuse-address socket) t)) - (sb-bsd-sockets:socket-bind + (sb-bsd-sockets:socket-bind socket (sb-bsd-sockets:make-inet-address "0.0.0.0") port) (sb-bsd-sockets:socket-listen socket 15) socket)) (defun create-inet-listener (port &key (format :text) (reuse-address t)) + #+cmu (declare (ignore format reuse-address)) #+cmu (ext:create-inet-listener port) #+allegro (socket:make-socket :connect :passive :local-port port :format format - :address-family + :address-family (if (stringp port) :file (if (or (null port) (integerp port)) :internet (error "illegal value for port: ~s" port))) :reuse-address reuse-address) - #+sbcl - (listen-to-inet-port :port port :reuse reuse-address) + #+sbcl (declare (ignore format)) + #+sbcl (listen-to-inet-port :port port :reuse reuse-address) + #+clisp (declare (ignore format reuse-address)) #+clisp (ext:socket-server port) - #+openmcl + #+openmcl + (declare (ignore format)) + #+openmcl (ccl:make-socket :connect :passive :local-port port :reuse-address reuse-address) #-(or allegro clisp cmu sbcl openmcl) @@ -86,7 +90,7 @@ setsockopt SO_REUSEADDR if :reuse is not nil" (sb-bsd-sockets:socket-make-stream sock :element-type :default :input t :output t) sock))) - #+openmcl + #+openmcl (let ((sock (ccl:accept-connection listener :wait t))) (values sock sock)) #-(or allegro clisp cmu sbcl openmcl) @@ -134,15 +138,15 @@ setsockopt SO_REUSEADDR if :reuse is not nil" (declare (string dotted)) (if errorp (let ((ll (delimited-string-to-list dotted #\.))) - (+ (ash (parse-integer (first ll)) 24) + (+ (ash (parse-integer (first ll)) 24) (ash (parse-integer (second ll)) 16) - (ash (parse-integer (third ll)) 8) + (ash (parse-integer (third ll)) 8) (parse-integer (fourth ll)))) (ignore-errors (let ((ll (delimited-string-to-list dotted #\.))) (+ (ash (parse-integer (first ll)) 24) (ash (parse-integer (second ll)) 16) - (ash (parse-integer (third ll)) 8) + (ash (parse-integer (third ll)) 8) (parse-integer (fourth ll))))))) #+sbcl @@ -197,13 +201,13 @@ setsockopt SO_REUSEADDR if :reuse is not nil" (defun ipaddr-array-to-dotted (array) (format nil "~{~D~^.~}" (coerce array 'list)) #+ignore - (format nil "~D.~D.~D.~D" + (format nil "~D.~D.~D.~D" (aref 0 array) (aref 1 array) (aref 2 array) (array 3 array))) (defun remote-host (socket) #+allegro (socket:ipaddr-to-dotted (socket:remote-host socket)) #+lispworks (nth-value 0 (comm:get-socket-peer-address socket)) - #+sbcl (ipaddr-array-to-dotted + #+sbcl (ipaddr-array-to-dotted (nth-value 0 (sb-bsd-sockets:socket-peername socket))) #+cmu (nth-value 0 (ext:get-peer-host-and-port socket)) #+clisp (let* ((peer (ext:socket-stream-peer socket t)) @@ -212,4 +216,4 @@ setsockopt SO_REUSEADDR if :reuse is not nil" (if stop (subseq peer 0 stop) peer)) #+openmcl (ccl:remote-host socket) ) - +