anchor.diff:     "add listner to select"
   
      #+clisp-new-socket-status
  -   `(length (push ,socket (%value ,select-obj)))
  +   `(length (push ,socket (select-value ,select-obj)))
   
      #+sbcl
      `(%add-fd ,select-obj
  
positive.code: 
     #+allegro
     (mp:wait-for-input-available
      (%value select)
      :timeout (if (select-writepending select) 0 20)
      :whostate "wating for CORBA input")
  
  
negative.code:               (cond ((not input)  :output)
                      ((not output) :input)
                      (t            :io)))
               (select-value select)))
  
     #+clisp
     (length (push stream (select-value select)))
  
     #+sbcl
     (let ((fd (sb-sys:fd-stream-fd stream)))
  