Add quantumlisp dist (provide up-to-date magicl) (rigetti#6)

* Add quantumlisp dist (provide up-to-date magicl)

* Update quicklisp dist version to 2020-02-18

Author: notmgsk

Dockerfile

@@ -50,7 +50,7 @@ RUN curl -o /tmp/quicklisp.lisp 'https://beta.quicklisp.org/quicklisp.lisp' && \
 # quickload libraries
 ADD . /src/docker-lisp
 WORKDIR /src/docker-lisp
-RUN sbcl --eval '(ql:quickload (uiop:read-file-lines "quicklisp-libraries.txt"))' --quit
+RUN sbcl --load "quantumlisp.lisp" --eval '(ql:quickload (uiop:read-file-lines "quicklisp-libraries.txt"))' --quit
 
 # enter into an SBCL REPL (requirements: rlwrap, sbcl)
 CMD sleep 0.05; rlwrap sbcl

VERSION-QUICKLISP.txt

@@ -1 +1 @@
-2019-11-30
+2020-02-18

quantumlisp.lisp

@@ -0,0 +1,18 @@
+(ql:quickload :drakma)
+
+(defun https-fetch (url file &key (follow-redirects t) quietly
+                               (if-exists :rename-and-delete)
+                               (maximum-redirects ql-http:*maximum-redirects*))
+  (declare (ignore follow-redirects quietly maximum-redirects if-exists))
+  (let ((response (drakma:http-request url :force-binary t )))
+    (with-open-file (s file :direction :output :if-exists :supersede :if-does-not-exist :create
+                            :element-type '(unsigned-byte 8))
+      (write-sequence response s)))
+  nil)
+
+(setf ql-http:*fetch-scheme-functions*
+      (append ql-http:*fetch-scheme-functions*
+              '(("https" . https-fetch))))
+
+(ql-dist:install-dist "https://quicklisp.infra.rigetti.com:443/quantumlisp.txt"
+                      :prompt nil)