source: branches/1.1.x/contrib/quicklisp/quicklisp-abcl.asd @ 14301

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

doc: Start annotating all the places we need to change things with RDF.
Do

TODO: grovel through the source tree to find all textual lines
containing probable RDF statements.

File size: 1.3 KB
Line 
1;;;; -*- Mode: LISP -*-
2(require :asdf)
3(require :abcl-contrib)
4(require :abcl-asdf)
5(in-package :asdf)
6
7;; Quicklisp defines:
8;;(defvar *setup-url* "http://beta.quicklisp.org/quickstart/setup.lisp")
9
10(defsystem :quicklisp-abcl
11    :description
12    "Load Quicklisp from the network if it isn't already installed. <urn:abcl.org/release/1.1.0/contrib/quicklisp-abcl#0.2.0>"
13    :version "0.2.0"
14    :components nil)
15
16;; #+nil::needs-abcl-asdf((:iri "http://beta.quicklisp.org/quicklisp.lisp"))
17;;    #+nil::in-order-to ((asdf:compile-op (ql::install)))  ;;; FIXME tickle the internal Quicklisp setup
18
19(defmethod perform ((o load-op) (c (eql (find-system 'quicklisp-abcl))))
20  ;;; Load local Quicklisp if it has been an installed
21  (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
22                                         (user-homedir-pathname))))
23    (if (probe-file quicklisp-init)
24        (load quicklisp-init)
25        (handler-case
26            (load "https://beta.quicklisp.org/quicklisp.lisp")
27          (error (e)
28            (warn "Using insecure transport for remote installation
29              of Quicklisp:~&~A~&." e)
30            (load "http://beta.quicklisp.org/quicklisp.lisp"))))
31    (unless (find-package :quicklisp)
32      (funcall (intern "INSTALL" "QUICKLISP-QUICKSTART")))))
33
34       
35   
36 
37
38
Note: See TracBrowser for help on using the repository browser.