source: trunk/abcl/contrib/quicklisp/quicklisp-abcl.asd @ 14223

Last change on this file since 14223 was 14223, checked in by Mark Evenson, 8 years ago

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.

File size: 1.0 KB
Line 
1;;;; -*- Mode: LISP -*-
2(require :asdf)
3(require :abcl-contrib)
4(require :abcl-asdf)
5(in-package :asdf)
6;; Quicklisp defines:
7;;(defvar *setup-url* "http://beta.quicklisp.org/quickstart/setup.lisp")
8(defsystem :quicklisp-abcl
9    :version "0.2.0"
10    :description "Convenience stubs to load locally installed Quicklisp."
11;;    #+nil::defsystem-depends-on (abcl-asdf)
12    :components nil)
13;; #+nil::needs-abcl-asdf((:iri "http://beta.quicklisp.org/quicklisp.lisp"))
14;;    #+nil::in-order-to ((asdf:compile-op (ql::install)))  ;;; FIXME tickle the internal Quicklisp setup
15
16(defmethod perform ((o load-op) (c (eql (find-system 'quicklisp-abcl))))
17  ;;; Load local Quicklisp if it has been an installed
18  (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
19                                         (user-homedir-pathname))))
20    (if (probe-file quicklisp-init)
21        (load quicklisp-init)
22        (progn
23          (load "http://beta.quicklisp.org/quicklisp.lisp")
24          (funcall (intern "install" "QUICKLISP-QUICKSTART"))))))
25       
26   
27 
28
29
Note: See TracBrowser for help on using the repository browser.