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

Last change on this file since 14892 was 14892, checked in by mevenson, 10 months ago

metadata: publish all artifacts for 1.4.0 simultaneously

Update the README <file:README>, CHANGES <file:CHANGES> and the User
manual <file:doc/manual/> for 1.4.0.

<http://abcl.org/trac/changeset/14891>

File size: 1.6 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.4.0/contrib/quicklisp-abcl#0.3.0>"
13    :version "0.3.0"
14    :components nil)
15
16;; #+nil::needs-abcl-asdf((:iri "http://beta.quicklisp.org/quicklisp.lisp"))
17
18(defmethod perform ((o load-op) (c (eql (find-system 'quicklisp-abcl))))
19  (let* ((setup (merge-pathnames "quicklisp/setup.abcl"
20                                 (user-homedir-pathname)))
21         (setup-source (merge-pathnames (make-pathname :type "lisp") setup)))
22    (let ((it (or (probe-file setup)
23                  (probe-file setup-source))))
24      (if it
25           ;;; First try loaded Quicklisp artifacts if it has been an installed for this user
26          (prog1
27              (load it)
28            ;; compilation only succeeds after QUICKLISP has been loaded fully
29            (unless (probe-file setup)
30              (compile-file setup-source)))
31          (progn
32            (handler-case
33                (load "https://beta.quicklisp.org/quicklisp.lisp")
34              (error (e)
35                (warn "Using insecure transport for remote installation of Quicklisp:~&~A~&." e)
36                (load "http://beta.quicklisp.org/quicklisp.lisp")))
37            (unless (find-package :quicklisp)
38              (funcall (intern "INSTALL" "QUICKLISP-QUICKSTART"))))))))
39
40
41
42       
43   
44 
45
46
Note: See TracBrowser for help on using the repository browser.