| 1 | ;;; -*- Lisp -*- |
|---|
| 2 | |
|---|
| 3 | ;;; Portatble ASDF-Install is based on Dan Barlow's ASDF-Install |
|---|
| 4 | ;; (see the file COPYRIGHT for details). It is currently maintained |
|---|
| 5 | ;; by Gary King <gwking@metabang.com>. |
|---|
| 6 | |
|---|
| 7 | (defpackage #:asdf-install-system |
|---|
| 8 | (:use #:cl #:asdf)) |
|---|
| 9 | |
|---|
| 10 | (in-package #:asdf-install-system) |
|---|
| 11 | |
|---|
| 12 | (defsystem asdf-install |
|---|
| 13 | #+:sbcl :depends-on |
|---|
| 14 | #+:sbcl (sb-bsd-sockets) |
|---|
| 15 | :version "0.6.10.3" |
|---|
| 16 | :description "<> asdf:defsystem <urn:abcl.org/release/1.3.0/contrib/asdf-install#0.6.10.3>" |
|---|
| 17 | :author "Dan Barlow <dan@telent.net>, Edi Weitz <edi@agharta.de> and many others. See the file COPYRIGHT for more details." |
|---|
| 18 | :maintainer "Gary Warren King <gwking@metabang.com> // ABCL <evenson@not.org> ." |
|---|
| 19 | :components ((:file "defpackage") |
|---|
| 20 | (:file "split-sequence" :depends-on ("defpackage")) |
|---|
| 21 | |
|---|
| 22 | (:file "port" :depends-on ("defpackage" "split-sequence")) |
|---|
| 23 | #+:digitool |
|---|
| 24 | (:file "digitool" :depends-on ("port")) |
|---|
| 25 | |
|---|
| 26 | (:file "conditions" :depends-on ("defpackage" "variables")) |
|---|
| 27 | (:file "variables" :depends-on ("port")) |
|---|
| 28 | (:file "installer" |
|---|
| 29 | :depends-on ("port" "split-sequence" |
|---|
| 30 | #+:digitool "digitool" |
|---|
| 31 | "conditions" "variables")) |
|---|
| 32 | (:file "deprecated" :depends-on ("installer"))) |
|---|
| 33 | :in-order-to ((test-op (load-op test-asdf-install))) |
|---|
| 34 | :perform (test-op :after (op c) |
|---|
| 35 | (funcall |
|---|
| 36 | (intern (symbol-name '#:run-tests) :lift) |
|---|
| 37 | :config :generic))) |
|---|
| 38 | |
|---|
| 39 | (defmethod perform :after ((o load-op) (c (eql (find-system :asdf-install)))) |
|---|
| 40 | (let ((show-version (find-symbol |
|---|
| 41 | (symbol-name '#:show-version-information) |
|---|
| 42 | '#:asdf-install))) |
|---|
| 43 | (when (and show-version (fboundp show-version)) |
|---|
| 44 | (funcall show-version))) |
|---|
| 45 | (provide 'asdf-install)) |
|---|
| 46 | |
|---|
| 47 | (defmethod operation-done-p |
|---|
| 48 | ((o test-op) (c (eql (find-system :asdf-install)))) |
|---|
| 49 | nil) |
|---|
| 50 | |
|---|
| 51 | #+(or) |
|---|
| 52 | (defmethod perform ((o test-op) (c (eql (find-system :asdf-install)))) |
|---|
| 53 | t) |
|---|
