anchor.diff:       (mess 1 "Selecting ~A" select)
        ;; FIXME: can use larger timeout when socket-status is fixed
        ;; to work on server sockets.
  -     (let ((select-list (%value select)))
  +     (let ((select-list (select-value select)))
          (when select-list
            (setq result (socket:socket-status (nreverse select-list) 10))))
        (mess 1 "Select result ~A" result)
  
positive.code:               (cond ((not input)  :output)
                      ((not output) :input)
                      (t            :io)))
               (%value select)))
  
     #+clisp
     (length (push stream (%value select)))
  
     #+sbcl
     (let ((fd (sb-sys:fd-stream-fd stream)))
  
negative.code:       (when output
          (setf (select-writepending select) t))
        (when input
          (car (push stream (select-value select)))))
  
     ;; Default
     0))
  