Some correction and moving around.
[com-informatimago:com-informatimago.git] / compile.lisp
1 ;;;; -*- mode:lisp;coding:utf-8 -*-
2 ;;;;**************************************************************************
3 ;;;;FILE:               compile.lisp
4 ;;;;LANGUAGE:           Common-Lisp
5 ;;;;SYSTEM:             Common-Lisp
6 ;;;;USER-INTERFACE:     NONE
7 ;;;;DESCRIPTION
8 ;;;;    
9 ;;;;    Compile all the libraries with ASDF.
10 ;;;;    
11 ;;;;AUTHORS
12 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
13 ;;;;MODIFICATIONS
14 ;;;;    2010-11-01 <PJB> Created.
15 ;;;;BUGS
16 ;;;;LEGAL
17 ;;;;    AGPL3
18 ;;;;    
19 ;;;;    Copyright Pascal J. Bourguignon 2010 - 2012
20 ;;;;    
21 ;;;;    This program is free software: you can redistribute it and/or modify
22 ;;;;    it under the terms of the GNU Affero General Public License as published by
23 ;;;;    the Free Software Foundation, either version 3 of the License, or
24 ;;;;    (at your option) any later version.
25 ;;;;    
26 ;;;;    This program is distributed in the hope that it will be useful,
27 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
28 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
29 ;;;;    GNU Affero General Public License for more details.
30 ;;;;    
31 ;;;;    You should have received a copy of the GNU Affero General Public License
32 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>
33 ;;;;**************************************************************************
34
35
36
37 (let ((path (merge-pathnames
38              (make-pathname :directory '(:relative "TOOLS")
39                             :name "INIT-ASDF" :type "LISP" :case :common)
40               *load-pathname*)))
41
42   #+abcl (setf path (pathname (string-downcase (namestring path))))
43   
44   (format t "~&;;;;; Loading ~S~%" path)
45   (load path :verbose t))
46
47
48 ;; Add all the subdirectories containing a .asd file to
49 ;; asdf:*central-registry*.
50
51 (setf asdf:*central-registry*
52       (append (remove-duplicates
53                (mapcar (lambda (path)
54                          (make-pathname :name nil :type nil :version nil :defaults path))
55                        (directory "**/*.asd"))
56                :test (function equalp))
57               asdf:*central-registry*))
58
59
60 #-abcl
61 (asdf-load  :com.informatimago.common-lisp)
62
63 #-abcl
64 (asdf-load  :com.informatimago.clmisc)
65
66 #-(or abcl ccl cmu ecl sbcl)
67 (asdf-load  :com.informatimago.clext)
68
69 ;; #+sbcl
70 ;; (asdf-load  :com.informatimago.sbcl)
71
72 #+clisp
73 (asdf-load  :com.informatimago.clisp)
74
75 #+clisp
76 (asdf-load  :com.informatimago.susv3)
77
78
79 ;;;; THE END ;;;;