Changeset 14204 for trunk/abcl/contrib/quicklisp/quicklisp-abcl.asd
- Timestamp:
- 10/17/12 06:51:59 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/contrib/quicklisp/quicklisp-abcl.asd
r13886 r14204 1 1 ;;;; -*- Mode: LISP -*- 2 2 (require :asdf) 3 (require :abcl-contrib) 3 4 (require :abcl-asdf) 5 (in-package :asdf) 4 6 ;; Quicklisp defines: 5 7 ;;(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 12 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 (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.