diff -rN -u old-iolib/io-multiplex/common.lisp new-iolib/io-multiplex/common.lisp
--- old-iolib/io-multiplex/common.lisp	2007-03-09 22:36:54.000000000 -0500
+++ new-iolib/io-multiplex/common.lisp	2007-03-09 22:36:54.000000000 -0500
@@ -355,7 +355,7 @@
 (defstruct (fd-entry
              (:constructor make-fd-entry (fd))
              (:copier nil))
-  (fd 0 :type fixnum)
+  (fd 0 :type unsigned-byte)
   (edge-change nil :type symbol)
   (read-events  (make-queue) :type queue)
   (write-events (make-queue) :type queue)
@@ -414,7 +414,7 @@
                                        abs-timeout timeout))
              (:copier nil))
   ;; a file descriptor or nil in case of a timeout
-  (fd nil :type (or null fixnum))
+  (fd nil :type (or null unsigned-byte))
   (type nil :type (or null event-type))
   (handler nil :type (or null function))
   ;; if an event is not persistent it is removed
@@ -517,9 +517,9 @@
 (defun wait-until-fd-usable (fd event-type &optional timeout)
   (flet ((choose-poll-flags (type)
            (ecase type
-             (:read (logior et:pollin et:pollrdhup et:pollpri))
+             (:read (logior et:pollin et:pollpri))
              (:write (logior et:pollout et:pollhup))
-             (:read-write (logior et:pollin et:pollrdhup et:pollpri
+             (:read-write (logior et:pollin et:pollpri
                                   et:pollout et:pollhup)))))
     (let ((status ()))
       (with-foreign-object (pollfd 'et:pollfd)
@@ -533,6 +533,6 @@
               (return-from wait-until-fd-usable '(:error))))
           (flags-case et:revents
             ((et:pollout et:pollhup)             (push :write status))
-            ((et:pollin et:pollrdhup et:pollpri) (push :read  status))
+            ((et:pollin et:pollpri) (push :read  status))
             ((et:pollerr et:pollnval)            (push :error status)))
           (return-from wait-until-fd-usable status))))))
diff -rN -u old-iolib/sockets/address.lisp new-iolib/sockets/address.lisp
--- old-iolib/sockets/address.lisp	2007-03-09 22:36:54.000000000 -0500
+++ new-iolib/sockets/address.lisp	2007-03-09 22:36:54.000000000 -0500
@@ -64,6 +64,7 @@
         parsed)
     (multiple-value-bind (split len)
         (split-sequence #\. string :count 5)
+      (declare (ignorable len))
       (tagbody
          ;; must have exactly 4 tokens
          (when (/= 4 (length split))
diff -rN -u old-iolib/sockets/socket-options.lisp new-iolib/sockets/socket-options.lisp
--- old-iolib/sockets/socket-options.lisp	2007-03-09 22:36:54.000000000 -0500
+++ new-iolib/sockets/socket-options.lisp	2007-03-09 22:36:54.000000000 -0500
@@ -23,6 +23,7 @@
 
 ;; TODO: manage socket options errors
 (defun sockopt-error (retval level option action &optional val1 val2)
+  (declare (ignorable retval level option action val1 val2))
   (declare (type symbol action))
   (error "Sockopt error !"))