anchor.diff:       select-rset)
   
      #+allegro
  -   `(push (socket:socket-os-fd ,socket) (%value ,select-obj))
  +   `(push (socket:socket-os-fd ,socket) (select-value ,select-obj))
   
      ;; Default
      nil))
  
positive.code: 
     #+allegro
     (mp:wait-for-input-available
      (%value select)
      :timeout (if (select-writepending select) 0 20)
      :whostate "wating for CORBA input")
  
  
negative.code:      (mess 1 "Selecting ~A" select)
       ;; FIXME: can use larger timeout when socket-status is fixed
       ;; to work on server sockets.
       (let ((select-list (select-value select)))
         (when select-list
           (setq result (socket:socket-status (nreverse select-list) 10))))
       (mess 1 "Select result ~A" result)
  