anchor.diff:  (definterface host-address (host)
     (:implementation t
       host)
  +  (:implementation mkcl
  +    (qlqs-mkcl:host-ent-address (qlqs-mkcl:get-host-by-name host)))
     (:implementation sbcl
       (qlqs-sbcl:host-ent-address (qlqs-sbcl:get-host-by-name host))))
   
  
positive.code:                   #:socket-connect
                    #:socket-make-stream))
  
  ;;;
  ;;; Utility function
  ;;;
  
negative.code: ;;; Try to canonicalize to an absolute pathname; helps on Lisps where
  ;;; *default-pathname-defaults* isn't an absolute pathname at startup
  ;;; (e.g. CCL, CMUCL)
  #-mkcl (setf *default-pathname-defaults* (truename *default-pathname-defaults*))
  
  (write-string *after-load-message*)
  
  