diff --git a/quicklisp/impl-util.lisp b/quicklisp/impl-util.lisp
index f69cb51..aa9d488 100644
--- a/quicklisp/impl-util.lisp
+++ b/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
diff --git a/quicklisp/impl.lisp b/quicklisp/impl.lisp
index 1d1a2ce..10c7f72 100644
--- a/quicklisp/impl.lisp
+++ b/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
diff --git a/quicklisp/network.lisp b/quicklisp/network.lisp
index 4a09a52..3ebacaf 100644
--- a/quicklisp/network.lisp
+++ b/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))
diff --git a/quicklisp/package.lisp b/quicklisp/package.lisp
index 5140597..ba685ac 100644
--- a/quicklisp/package.lisp
+++ b/quicklisp/package.lisp
@@ -50,6 +50,7 @@
            #:clisp
            #:cmucl
            #:cormanlisp
+           #:dotcl
            #:ecl
            #:gcl
 	   #:genera