source: branches/1.1.x/contrib/asdf-install/asdf-install.asd @ 14301

Last change on this file since 14301 was 14301, checked in by Mark Evenson, 8 years ago

doc: Start annotating all the places we need to change things with RDF.
Do

TODO: grovel through the source tree to find all textual lines
containing probable RDF statements.

File size: 1.9 KB
Line 
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.2"
16  :description "<> asdf:defsystem <urn:abcl.org/release/1.1.0/contrib/asdf-install#0.6.10.2>"
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>"
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)
Note: See TracBrowser for help on using the repository browser.