source: release/1.2/source/tools/asdf-install/asdf-install.asd @ 9219

Last change on this file since 9219 was 9219, checked in by gb, 11 years ago

synch from trunk

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.8 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"
16  :author "Dan Barlow <dan@telent.net>, Edi Weitz <edi@agharta.de> and many others. See the file COPYRIGHT for more details."
17  :maintainer "Gary Warren King <gwking@metabang.com>"
18  :components ((:file "defpackage")
19               (:file "split-sequence" :depends-on ("defpackage"))
20               
21               (:file "port" :depends-on ("defpackage"))
22               #+:digitool
23               (:file "digitool" :depends-on ("port"))
24               
25               (:file "conditions" :depends-on ("defpackage" "variables"))
26               (:file "variables" :depends-on ("port"))
27               (:file "installer"
28                      :depends-on ("port" "split-sequence" 
29                                          #+:digitool "digitool"
30                                          "conditions" "variables"))
31               (:file "deprecated" :depends-on ("installer")))
32  :in-order-to ((test-op (load-op test-asdf-install)))
33  :perform (test-op :after (op c)
34                    (funcall
35                      (intern (symbol-name '#:run-tests) :lift)
36                      :config :generic)))
37           
38(defmethod perform :after ((o load-op) (c (eql (find-system :asdf-install))))
39  (let ((show-version (find-symbol
40                       (symbol-name '#:show-version-information)
41                       '#:asdf-install)))
42    (when (and show-version (fboundp show-version)) 
43      (funcall show-version)))
44  (provide 'asdf-install))
45
46(defmethod operation-done-p 
47    ((o test-op) (c (eql (find-system :asdf-install))))
48  nil)
49
50#+(or)
51(defmethod perform ((o test-op) (c (eql (find-system :asdf-install))))
52  t)
Note: See TracBrowser for help on using the repository browser.