/[cmucl]/src/clx/build-clx.lisp
ViewVC logotype

Contents of /src/clx/build-clx.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (show annotations)
Tue Aug 21 15:49:27 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: +17 -6 lines
Telent CLX import
1 ;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
2
3 #+cmu
4 (ext:file-comment "$Id: build-clx.lisp,v 1.4 2007/08/21 15:49:27 fgilham Exp $")
5
6 ;;; Load this file if you want to compile CLX in its entirety.
7 (proclaim '(optimize (speed 3) (safety 1) (space 1)
8 (compilation-speed 0)))
9
10
11 ;;; Hide CLOS from CLX, so objects stay implemented as structures.
12 ;;;
13 #||
14 (when (find-package "CLOS")
15 (rename-package (find-package "CLOS") "NO-CLOS-HERE"))
16 (when (find-package "PCL")
17 (rename-package (find-package "PCL") "NO-PCL-HERE"))
18 (when (find-package "SB-PCL")
19 (rename-package (find-package "SB-PCL") "NO-SB-PCL-HERE"))
20 ||#
21
22 (when (find-package "XLIB")
23 (delete-package "XLIB"))
24
25 (unless (find-package "XLIB")
26 (make-package "XLIB" :use '("COMMON-LISP")))
27
28 #-sbcl
29 (compile-file "clx:defsystem.lisp" :error-file nil :load t)
30
31 #+sbcl
32 (progn (compile-file "clx:defsystem.lisp")
33 (load "clx:defsystem"))
34
35 (with-compilation-unit ()
36 (#+cmu xlib:compile-clx #-cmu compile-clx (pathname "CLX:")))

  ViewVC Help
Powered by ViewVC 1.1.5