Ignore:
Timestamp:
10/17/12 06:51:59 (8 years ago)
Author:
Mark Evenson
Message:

Complete runtime chain to installing Quicklisp.

ABCL-ASDF now knows how to load a locally installed Quicklisp.

To download and install Quicklisp from a clean REPL:

CL-USER> (require :abcl)(require :abcl-contrib)(require :quicklisp-abcl)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/quicklisp/quicklisp-abcl.asd

    r13886 r14204  
    11;;;; -*- Mode: LISP -*-
    22(require :asdf)
     3(require :abcl-contrib)
    34(require :abcl-asdf)
     5(in-package :asdf)
    46;; Quicklisp defines:
    57;;(defvar *setup-url* "http://beta.quicklisp.org/quickstart/setup.lisp")
    6 (asdf:defsystem :quicklisp-abcl
    7     :version "0.1.0"
    8     :components ((:iri "http://beta.quicklisp.org/quicklisp.lisp"))
    9     #+nil ;;; FIXME tickle the internal Quicklisp setup
    10     :in-order-to ((asdf:compile-op (ql::install))))
    11                  
     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
    1215
     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    (handler-case
     21        (when (probe-file quicklisp-init)
     22          (load quicklisp-init))
     23      (t (e) (load "https://beta.quicklisp.org/quickstart/setup.lisp")))))
     24 
     25
     26
Note: See TracChangeset for help on using the changeset viewer.