Skip to content

Commit

Permalink
Removed creep-in of bootstrap package qlqs-mkcl, package ql-mkcl was …
Browse files Browse the repository at this point in the history
…meant instead.
  • Loading branch information
jcbeaudoin committed Jul 24, 2012
1 parent 3332f5b commit bd48a3e
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions network.lisp
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -54,13 +54,13 @@
:output t :output t
:buffering :full))) :buffering :full)))
(:implementation mkcl (:implementation mkcl
(let* ((endpoint (qlqs-mkcl:host-ent-address (let* ((endpoint (ql-mkcl:host-ent-address
(qlqs-mkcl:get-host-by-name host))) (ql-mkcl:get-host-by-name host)))
(socket (make-instance 'qlqs-mkcl:inet-socket (socket (make-instance 'ql-mkcl:inet-socket
:protocol :tcp :protocol :tcp
:type :stream))) :type :stream)))
(qlqs-mkcl:socket-connect socket endpoint port) (ql-mkcl:socket-connect socket endpoint port)
(qlqs-mkcl:socket-make-stream socket (ql-mkcl:socket-make-stream socket
:element-type '(unsigned-byte 8) :element-type '(unsigned-byte 8)
:input t :input t
:output t :output t
Expand Down

0 comments on commit bd48a3e

Please sign in to comment.