Port to MKCL

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

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
 

network.lisp

@@ -53,6 +53,18 @@
                                  :input t
                                  :output t
                                  :buffering :full)))
+  (:implementation mkcl
+    (let* ((endpoint (ql-mkcl:host-ent-address
+                      (ql-mkcl:get-host-by-name host)))
+           (socket (make-instance 'ql-mkcl:inet-socket
+                                  :protocol :tcp
+                                  :type :stream)))
+      (ql-mkcl:socket-connect socket endpoint port)
+      (ql-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

package.lisp

@@ -48,6 +48,7 @@
            #:ecl
            #:gcl
            #:lispworks
+           #:mkcl
            #:scl
            #:sbcl))