anchor.diff:     (writepending nil))
    )
   
  -#+(or sbcl cmu18)
  +#+(or sbcl cmu18 cmu19)
   (defmacro %add-fd (select-obj fd-number set)
     (let ((sobj '#:sobj)
           (fd   '#:fd))
  
positive.code:        (max (select-maxn ,sobj) ,fd))
        (setf (,set ,sobj) (logior (,set ,sobj) (ash 1 ,fd))))))
  
  #+(or sbcl cmu18)
  (defmacro %socket-file-descriptor (socket)
    (%SYSDEP
     "file descriptor for listener socket"
     #+clorb::db-sockets `(sockets:socket-file-descriptor ,socket)
     #+clorb::sb-bsd-sockets `(sb-bsd-sockets:socket-file-descriptor ,socket)
     #+cmu18 socket))
  
  #+(or sbcl cmu18)
  (defmacro %stream-fd (stream)
    (%SYSDEP
     "file descriptor for stream"
     #+cmu18 `(system:fd-stream-fd ,stream)
     #+sbcl  `(sb-sys:fd-stream-fd ,stream)))
  
  #+(or sbcl cmu18)
  (defmacro %unix-select (maxn rset wset xset timeout)
    `(#+sbcl sb-unix:unix-select #+cmu18 unix:unix-select
             ,maxn ,rset ,wset ,xset ,timeout))
  
  
  
negative.code:             :whostate "wating for CORBA input"))
       select)
  
     #+(or cmu18 cmu19 sbcl)
     (progn
       (unless (select-direct-input select)
         (mess 2 "Enter select ~A ~A"
               (select-rset select) (select-wset select))
         (multiple-value-bind (result rset wset xset)
             (%unix-select (1+ (select-maxn select))
                           (select-rset select)
  