+31 Dec 2006 Kevin Rosenberg <kevin@rosenberg.net>
+ * impl.lisp, sockets.lisp, equal.lisp, datetime.lisp: Declare ignored variables
+
29 Nov 2006 Kevin Rosenberg <kevin@rosenberg.net>
* Version 1.92
* strings.lisp: Add uri-query-to-alist
(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)
(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)))
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
(in-package #:kmrcl)
-
+
(defun generalized-equal (obj1 obj2)
(if (not (equal (type-of obj1) (type-of obj2)))
(progn
(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")
)
(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")
)
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))
(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))
(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))))
: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)
(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)
(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
(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))
(if stop (subseq peer 0 stop) peer))
#+openmcl (ccl:remote-host socket)
)
-
+