Changeset 14261

Timestamp:

11/28/12 18:48:10 (8 years ago)

Author:

Mark Evenson

Message:

abcl-contrib> QUICKLISP-ABCL now installs Quicklisp from the REPL.

Use via

(dolist (system (:abcl-contrib :quicklisp-abcl)) (require system))

File:

• trunk/abcl/contrib/quicklisp/quicklisp-abcl.asd (modified) (1 diff)

trunk/abcl/contrib/quicklisp/quicklisp-abcl.asd

@@ -20 +20 @@
     (if (probe-file quicklisp-init)
         (load quicklisp-init)
-        (progn
-          (load "http://beta.quicklisp.org/quicklisp.lisp")
-          (funcall (intern "INSTALL" "QUICKLISP-QUICKSTART"))))))
+        (handler-case 
+            (load "https://beta.quicklisp.org/quicklisp.lisp")
+          (error (e)
+            (warn "Using insecure transport for remote installation
+              of Quicklisp:~&~A~&." e)
+            (load "http://beta.quicklisp.org/quicklisp.lisp"))))
+    (unless (find-package :quicklisp)
+      (funcall (intern "INSTALL" "QUICKLISP-QUICKSTART")))))
+