Add dotcl (Common Lisp on .NET) support

quicklisp/impl-util.lisp

@@ -57,6 +57,8 @@
     ".clinit.cl")
   (:implementation abcl
     ".abclrc")
+  (:implementation dotcl
+    (ql-dotcl:user-init-file))
   (:implementation ccl
     #+windows
     "ccl-init.lisp"
@@ -219,6 +221,8 @@ quicklisp at CL startup."
   (:implementation abcl
     (directory (merge-pathnames *wild-entry* directory)
                #+abcl :resolve-symlinks #+abcl nil))
+  (:implementation dotcl
+    (directory (merge-pathnames *wild-entry* directory)))
   (:implementation ccl
     (directory (merge-pathnames *wild-entry* directory)
                #+ccl :directories #+ccl t

quicklisp/impl.lisp

@@ -151,6 +151,18 @@
                   #:make-socket
                   #:get-socket-stream))
 
+;;; dotcl
+
+(define-implementation-package :dotcl #:ql-dotcl
+  (:documentation
+   "dotcl - Common Lisp on .NET - https://github.com/dotcl/dotcl")
+  (:class dotcl)
+  (:prep (require "dotcl-socket"))
+  (:reexport-from #:dotcl-socket
+                  #:socket-connect)
+  (:reexport-from #:dotcl
+                  #:user-init-file))
+
 ;;; Clozure CL
 
 (define-implementation-package :ccl #:ql-ccl

quicklisp/network.lisp

@@ -23,6 +23,8 @@
   (:implementation abcl
     (let ((socket (ql-abcl:make-socket host port)))
       (ql-abcl:get-socket-stream socket :element-type '(unsigned-byte 8))))
+  (:implementation dotcl
+    (ql-dotcl:socket-connect host port :binary t))
   (:implementation ccl
     (ql-ccl:make-socket :remote-host host
                         :remote-port port))

quicklisp/package.lisp

@@ -50,6 +50,7 @@
            #:clisp
            #:cmucl
            #:cormanlisp
+           #:dotcl
            #:ecl
            #:gcl
 	   #:genera