/[cmucl]/src/clx/provide.lisp
ViewVC logotype

Contents of /src/clx/provide.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (show annotations)
Wed Jun 17 18:22:46 2009 UTC (4 years, 10 months ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, intl-branch-working-2010-02-19-1000, unicode-string-buffer-impl-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, intl-2-branch-base, GIT-CONVERSION, cross-sol-x86-merged, intl-branch-working-2010-02-11-1000, RELEASE_20b, release-20a-base, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, pre-merge-intl-branch, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, snapshot-2010-08, cross-sol-x86-2010-12-20, intl-branch-2010-03-18-1300, RELEASE_20a, release-20a-pre1, snapshot-2009-11, snapshot-2009-12, cross-sparc-branch-base, intl-branch-base, snapshot-2009-08, snapshot-2009-07, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, RELEASE-20A-BRANCH, amd64-dd-branch, unicode-string-buffer-impl-branch, intl-branch, cross-sol-x86-branch, intl-2-branch
Changes since 1.4: +1 -2 lines
Merge portable-clx (2009-06-16) to main branch.  Tested by running
src/contrib/games/feebs and hemlock which works (in non-unicode
builds).
1 ;;; -*- Mode: LISP; Syntax: Common-lisp; Base: 10; Lowercase: Yes; Package: USER; -*-
2
3 ;;;; Module definition for CLX
4
5 ;;; This file is a Common Lisp Module description, but you will have to edit
6 ;;; it to meet the needs of your site.
7
8 ;;; Ideally, this file (or a file that loads this file) should be
9 ;;; located in the system directory that REQUIRE searches. Thus a user
10 ;;; would say
11 ;;; (require :clx)
12 ;;; to load CLX. If there is no such registry, then the user must
13 ;;; put in a site specific
14 ;;; (require :clx <pathname-of-this-file>)
15 ;;;
16
17 #+cmu
18 (ext:file-comment "$Id: provide.lisp,v 1.5 2009/06/17 18:22:46 rtoy Rel $")
19
20 #+cmu
21 (cl:provide "CLX")
22
23 #-cmu
24 (progn
25
26 #-clx-ansi-common-lisp
27 (in-package :user)
28
29 #+clx-ansi-common-lisp
30 (in-package :common-lisp-user)
31
32 #-clx-ansi-common-lisp
33 (provide :clx)
34
35 (defvar *clx-source-pathname*
36 (pathname "/src/local/clx/*.l"))
37
38 (defvar *clx-binary-pathname*
39 (let ((lisp
40 (or #+lucid "lucid"
41 #+akcl "akcl"
42 #+kcl "kcl"
43 #+ibcl "ibcl"
44 (error "Can't provide CLX for this lisp.")))
45 (architecture
46 (or #+(or sun3 (and sun (or mc68000 mc68020))) "sun3"
47 #+(or sun4 sparc) "sparc"
48 #+(and hp (or mc68000 mc68020)) "hp9000s300"
49 #+vax "vax"
50 #+prime "prime"
51 #+sunrise "sunrise"
52 #+ibm-rt-pc "ibm-rt-pc"
53 #+mips "mips"
54 #+prism "prism"
55 (error "Can't provide CLX for this architecture."))))
56 (pathname (format nil "/src/local/clx/~A.~A/" lisp architecture))))
57
58 (defvar *compile-clx*
59 nil)
60
61 (load (merge-pathnames "defsystem" *clx-source-pathname*))
62
63 (if *compile-clx*
64 (compile-clx *clx-source-pathname* *clx-binary-pathname*)
65 (load-clx *clx-binary-pathname*))
66 )

  ViewVC Help
Powered by ViewVC 1.1.5