anchor.diff:  
      #+allegro
      (mp:wait-for-input-available
  -    (%value select)
  +    (select-value select)
       :timeout (if (select-writepending select) 0 20)
       :whostate "wating for CORBA input")
   
  
positive.code:    "add listner to select"
  
     #+clisp-new-socket-status
     `(length (push ,socket (%value ,select-obj)))
  
     #+sbcl
     `(%add-fd ,select-obj
  
negative.code:      select-rset)
  
     #+allegro
     `(push (socket:socket-os-fd ,socket) (select-value ,select-obj))
  
     ;; Default
     nil))
  