[armedbear-cvs] r14223 - trunk/abcl/contrib/quicklisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon Oct 29 02:25:45 2012
New Revision: 14223

Log:
quicklisp-abcl:  use http://beta.quicklisp.org/quicklisp.lisp as the bootstrap URI.

THe JVM seems confused with the AMS CloudFront certificate wildcards
as to whether 'https://beta.quicklisp.org' is valid or not, so switch to using "https".

N.b. ASDF loading of QUICKLISP-ABCL currently doesn't trigger the
load-op, probably because we have no declared artifacts, so this
contrib cannot be considered as "working" yet.  But if the
ASDF:PERFORM *were* to get called, things should work.

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

Modified: trunk/abcl/contrib/quicklisp/quicklisp-abcl.asd
==============================================================================
--- trunk/abcl/contrib/quicklisp/quicklisp-abcl.asd	Sun Oct 28 02:15:26 2012	(r14222)
+++ trunk/abcl/contrib/quicklisp/quicklisp-abcl.asd	Mon Oct 29 02:25:45 2012	(r14223)
@@ -17,10 +17,13 @@
   ;;; Load local Quicklisp if it has been an installed
   (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" 
                                          (user-homedir-pathname))))
-    (handler-case
-        (when (probe-file quicklisp-init)
-          (load quicklisp-init))
-      (t (e) (load "https://beta.quicklisp.org/quickstart/setup.lisp")))))
+    (if (probe-file quicklisp-init)
+        (load quicklisp-init)
+        (progn
+          (load "http://beta.quicklisp.org/quicklisp.lisp")
+          (funcall (intern "install" "QUICKLISP-QUICKSTART"))))))
+        
+