Changeset 152

Timestamp:

05/14/06 13:56:19 (19 years ago)

Author:

Erik Huelsmann

Message:

Fix SBCL compile warnings, at least one of which was a bug.

Location:

trunk

Files:

• event.lisp (modified) (4 diffs)
• protocol.lisp (modified) (3 diffs)
• utility.lisp (modified) (2 diffs)

trunk/event.lisp ¶

@@ -130 +130 @@
   (let* ((connection (connection message)))
     (destructuring-bind
-        (nick chan-mode channel names)
+        (nick chan-visibility channel names)
         (arguments message)
+      (declare (ignore nick chan-visibility))
+      ;; chan-visibility is (member '= '@ '*)
+      ;; '= == public
+      ;; '@ == secret
+      ;; '* == private
       (let ((channel (find-channel connection channel)))
         (unless (has-mode-p channel 'namreply-in-progress)
@@ -206 +211 @@
         (channel &optional text)
         arguments
+      (declare (ignore text))
       (let ((channel (find-channel connection channel))
             (user (find-user connection source)))
@@ -226 +232 @@
         (target channel &rest mode-arguments)
         arguments
-    (declare (ignore target))
     (let* ((channel (find-channel connection channel))
            (mode-changes
             (when channel
-              (parse-mode-arguments connection channel arguments
+              (parse-mode-arguments connection channel mode-arguments
                                     :server-p (user connection)))))
       (dolist (change mode-changes)
@@ -282 +287 @@
         (channel nick &optional reason)
         arguments
-      (declare (ignore arguments))
+      (declare (ignore reason))
       (let* ((channel (find-channel connection channel))
              (user (find-user connection nick)))

trunk/protocol.lisp ¶

@@ -261 +261 @@
 
 (defmethod start-process (function name)
+  (declare (ignorable name))
   #+allegro (mp:process-run-function name function)
   #+cmu (mp:make-process function :name name)
@@ -274 +275 @@
            (do-loop () (read-message-loop connection)))
     (let ((name (format nil "irc-hander-~D" (incf *process-count*))))
+      (declare (ignorable name))
       #+(or allegro cmu lispworks sb-thread openmcl armedbear)
       (start-process #'do-loop name)
@@ -293 +295 @@
 (defun stop-background-message-handler (process)
   "Stops a background message handler process returned by the start function."
+  (declare (ignorable process))
     #+cmu (mp:destroy-process process)
     #+allegro (mp:process-kill process)

trunk/utility.lisp ¶

@@ -122 +122 @@
                       (if non-blocking #'read-byte-no-hang #'read-byte)
                     (if non-blocking #'read-char-no-hang #'read-char)))
-        (limit-pos 0)
+        (limit-vector (coerce limit '(vector * t)))
         (targ-max (1- (length target)))
         (limit-max (length limit))
         (limit-cur 0)
         (targ-cur -1))
-    (declare (optimize (speed 3) (debug 0)))
+    (declare (optimize (speed 3) (debug 0))
+             (type fixnum targ-cur))
     ;; In SBCL read-char is a buffered operations (depending on
     ;; stream creation parameters), so this loop should be quite efficient
@@ -136 +137 @@
           else do
           (setf (elt target (incf targ-cur)) next-elt)
-          (if (eql next-elt (elt limit limit-cur))
+          (if (eql next-elt (aref limit-vector limit-cur))
               (incf limit-cur)
             (setf limit-cur 0))