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

Contents of /src/clx/provide.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Tue Aug 21 15:49:28 2007 UTC (6 years, 8 months ago) by fgilham
Branch: MAIN
CVS Tags: merged-unicode-utf16-extfmt-2009-06-11, unicode-utf16-extfmt-2009-03-27, snapshot-2007-09, snapshot-2008-08, snapshot-2008-09, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, sse2-base, sse2-packed-base, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, release-19e, release-19d, unicode-utf16-sync-2008-12, label-2009-03-16, release-19f-base, merge-sse2-packed, merge-with-19f, unicode-snapshot-2009-05, unicode-snapshot-2009-06, unicode-utf16-sync-2008-07, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, snapshot-2008-04, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, unicode-utf16-sync-2008-11, release-19e-pre1, release-19e-pre2, label-2009-03-25, sse2-checkpoint-2008-10-01, sse2-merge-with-2008-11, sse2-merge-with-2008-10, unicode-utf16-extfmt-2009-06-11, unicode-utf16-string-support, release-19e-base, unicode-utf16-base, portable-clx-base, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-05, snapshot-2009-04
Branch point for: RELEASE-19F-BRANCH, portable-clx-branch, sse2-packed-branch, unicode-utf16-branch, release-19e-branch, sse2-branch, unicode-utf16-extfmt-branch
Changes since 1.3: +11 -0 lines
Telent CLX import
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.4 2007/08/21 15:49:28 fgilham Exp $")
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
67 )

  ViewVC Help
Powered by ViewVC 1.1.5