anchor.diff:     "suspend process until function returns true"
      #+mcl
      (apply #'ccl:process-wait-with-timeout whostate timeout wait-func args)
  +
      ;; Default: ignore
      nil ))
  +
  +(defun process-wait (whostate wait-func &rest args)
  +  (declare (ignorable whostate))
  +  (%SYSDEP
  +   "wait for condition to come true"
  +   #+CCL 
  +   (apply #'ccl:process-wait whostate wait-func args)
  +
  +   ;; Default
  +   (loop until (apply wait-func args)
  +         do (sleep 0.1))))
  +
   
    
  
positive.code:        (ccl::tcp-unknown-domain-name 
          nil
          (ccl::tcp-addr-to-str host))))
        
     ;;#+Allegro (socket:ipaddr-to-hostname (socket:local-host socket))
     ;; Default
     "localhost"))
  
  
  (defun passive-socket-port (socket)
    (declare (ignorable socket))
    (%SYSDEP
     "Get the port of socket"
     #+dummy-tcp
     (second socket)
     #+clisp
     (if socket (socket-server-port socket) *port*)
     #+(or Allegro use-acl-socket)
     (socket:local-port socket)
     #+clorb::db-sockets
     (multiple-value-bind (adr port)
         (sockets:socket-name socket)
       (declare (ignore adr))
       port)
     #+clorb::sb-bsd-sockets
     (multiple-value-bind (adr port)
         (sb-bsd-sockets:socket-name socket)
       (declare (ignore adr))
       port)
     #+cmu
     (nth-value 1 (ext:get-socket-host-and-port socket))
     #+digitool
     (mcl-listener-port socket)))
  
  
  
  
  (defparameter *connect-timeout* 120)
  
  
negative.code:     (declare (ignorable type))
      (%SYSDEP
       "open socket to host/port"
  
       #+dummy-tcp
       (error "Dummy TCP cannot connect")
  
       #+clisp 
       (socket-connect port host :element-type type) 
  
       #+clorb::cmucl-sockets
       (system:make-fd-stream (ext:connect-to-inet-socket host port)
                              :input t :output t :element-type type)
  
       #+clorb::db-sockets
       (let ((s (sockets:make-inet-socket :stream :tcp))
             (num (car (sockets:host-ent-addresses
  