/[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.1 - (show annotations)
Mon May 14 15:00:36 1990 UTC (23 years, 11 months ago) by ram
Branch: MAIN
Initial revision
1 ;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
2
3 ;;; Load this file if you want to compile CLX in its entirety.
4
5 (proclaim '(optimize (speed 3) (safety 0) (space 1)
6 (compilation-speed 0)))
7
8
9 ;;; Hide CLOS from CLX, so objects stay implemented as structures.
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
16
17 (when (find-package "XLIB")
18 (rename-package (find-package "XLIB") "OLD-XLIB"))
19
20 ;(make-package "XLIB" :use '("LISP"))
21
22
23 (compile-file "clx:defsystem.lisp" :error-file nil)
24 (load "clx:defsystem.fasl")
25 (xlib:compile-clx (pathname "clx:"))

  ViewVC Help
Powered by ViewVC 1.1.5