Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Initial port to MKCL.

  • Loading branch information...
commit 3332f5b4e207ddb72f97027c7fdd2da75c5e368d 1 parent bf7a30e
@jcbeaudoin authored
Showing with 40 additions and 0 deletions.
  1. +9 −0 impl-util.lisp
  2. +18 −0 impl.lisp
  3. +12 −0 network.lisp
  4. +1 −0  package.lisp
View
9 impl-util.lisp
@@ -66,6 +66,8 @@
".clisprc.lisp")
(:implementation ecl
".eclrc")
+ (:implementation mkcl
+ ".mkclrc")
(:implementation lispworks
".lispworks")
(:implementation sbcl
@@ -216,6 +218,11 @@ quicklisp at CL startup."
#+ecl :resolve-symlinks #+ecl nil)
(directory (merge-pathnames *wild-relative* directory)
#+ecl :resolve-symlinks #+ecl nil)))
+ (:implementation mkcl
+ (setf directory (truename directory))
+ (nconc
+ (directory (merge-pathnames *wild-entry* directory))
+ (directory (merge-pathnames *wild-relative* directory))))
(:implementation sbcl
(directory (merge-pathnames *wild-entry* directory)
#+sbcl :resolve-symlinks #+sbcl nil)))
@@ -248,6 +255,8 @@ quicklisp at CL startup."
(ql-scl:unix-rmdir (ql-scl:unix-namestring entry)))
(:implementation ecl
(ql-ecl:rmdir entry))
+ (:implementation mkcl
+ (ql-mkcl:rmdir entry))
(:implementation lispworks
(ql-lispworks:delete-directory entry))
(:implementation sbcl
View
18 impl.lisp
@@ -240,6 +240,24 @@
#:socket-connect
#:socket-make-stream))
+;;; MKCL
+
+(define-implementation-package :mkcl #:ql-mkcl
+ (:documentation "ManKai Common Lisp - http://common-lisp.net/project/mkcl/")
+ (:class mkcl)
+ (:prep
+ (require 'sockets))
+ (:intern #:host-network-address)
+ (:reexport-from #:si
+ #:rmdir
+ #:file-kind)
+ (:reexport-from #:sb-bsd-sockets
+ #:get-host-by-name
+ #:host-ent-address
+ #:inet-socket
+ #:socket-connect
+ #:socket-make-stream))
+
;;; SBCL
View
12 network.lisp
@@ -53,6 +53,18 @@
:input t
:output t
:buffering :full)))
+ (:implementation mkcl
+ (let* ((endpoint (qlqs-mkcl:host-ent-address
+ (qlqs-mkcl:get-host-by-name host)))
+ (socket (make-instance 'qlqs-mkcl:inet-socket
+ :protocol :tcp
+ :type :stream)))
+ (qlqs-mkcl:socket-connect socket endpoint port)
+ (qlqs-mkcl:socket-make-stream socket
+ :element-type '(unsigned-byte 8)
+ :input t
+ :output t
+ :buffering :full)))
(:implementation lispworks
(ql-lispworks:open-tcp-stream host port
:direction :io
View
1  package.lisp
@@ -48,6 +48,7 @@
#:ecl
#:gcl
#:lispworks
+ #:mkcl
#:scl
#:sbcl))
Please sign in to comment.
Something went wrong with that request. Please try again.