anchor.diff:        (error "No system dependent code to ~A" desc))
     (car forms))
   
  + 
   ;;;; TCP/IP sockets implementation glue
   
  
positive.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
  
negative.code:    ;; default
     (close socket)))
  
  
  ;;;; HTTP GET
  
  