/[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.14.1 - (show annotations)
Wed Jun 17 15:46:26 2009 UTC (4 years, 10 months ago) by rtoy
Branch: portable-clx-branch
CVS Tags: portable-clx-import-2009-06-16
Changes since 1.4: +0 -3 lines
Import portable clx version from Christophe Rhodes darcs repository as
of 2009-06-16.

This is an exact copy of the code.  It is intended updates of
portable-clx go on the portable-clx-branch and should be merged to the
main branch as needed.  This should make it easier to do any
CMUCL-specific changes that aren't in portable-clx.

I chose not to import the files in the clx/manual directory.
Everything else is imported.  (Should the manual be imported too?)
1 ;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
2
3 ;;; Load this file if you want to compile CLX in its entirety.
4 (proclaim '(optimize (speed 3) (safety 1) (space 1)
5 (compilation-speed 0)))
6
7
8 ;;; Hide CLOS from CLX, so objects stay implemented as structures.
9 ;;;
10 #||
11 (when (find-package "CLOS")
12 (rename-package (find-package "CLOS") "NO-CLOS-HERE"))
13 (when (find-package "PCL")
14 (rename-package (find-package "PCL") "NO-PCL-HERE"))
15 (when (find-package "SB-PCL")
16 (rename-package (find-package "SB-PCL") "NO-SB-PCL-HERE"))
17 ||#
18
19 (when (find-package "XLIB")
20 (delete-package "XLIB"))
21
22 (unless (find-package "XLIB")
23 (make-package "XLIB" :use '("COMMON-LISP")))
24
25 #-sbcl
26 (compile-file "clx:defsystem.lisp" :error-file nil :load t)
27
28 #+sbcl
29 (progn (compile-file "clx:defsystem.lisp")
30 (load "clx:defsystem"))
31
32 (with-compilation-unit ()
33 (#+cmu xlib:compile-clx #-cmu compile-clx (pathname "CLX:")))

  ViewVC Help
Powered by ViewVC 1.1.5