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

Last change on this file since 14540 was 14540, checked in by Mark Evenson, 9 years ago

abcl-1.3.0-dev: Update release identifiers.

File size: 1.3 KB
RevLine 
[13886]1;;;; -*- Mode: LISP -*-
2(require :asdf)
[14204]3(require :abcl-contrib)
[13886]4(require :abcl-asdf)
[14204]5(in-package :asdf)
[14305]6
[13886]7;; Quicklisp defines:
8;;(defvar *setup-url* "http://beta.quicklisp.org/quickstart/setup.lisp")
[14305]9
[14204]10(defsystem :quicklisp-abcl
[14305]11    :description
[14540]12    "Load Quicklisp from the network if it isn't already installed. <urn:abcl.org/release/1.3.0-dev/contrib/quicklisp-abcl#0.2.0>"
[14204]13    :version "0.2.0"
14    :components nil)
[14305]15
[14204]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
[13886]18
[14204]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))))
[14223]23    (if (probe-file quicklisp-init)
24        (load quicklisp-init)
[14261]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
[14223]34       
35   
[14204]36 
37
38
Note: See TracBrowser for help on using the repository browser.