/[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.2 - (hide annotations)
Sun Jun 17 11:44:43 1990 UTC (23 years, 10 months ago) by ram
Branch: MAIN
CVS Tags: RELEASE_18a, RELEASE_18b
Branch point for: RELENG_18
Changes since 1.1: +4 -4 lines
New compilation hacks.
1 ram 1.1 ;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
2    
3     ;;; Load this file if you want to compile CLX in its entirety.
4 ram 1.2 #+nil
5 ram 1.1 (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 ram 1.2 (compile-file "clx:defsystem.lisp" :error-file nil :load t)
23 ram 1.1
24 ram 1.2 (with-compilation-unit ()
25     (xlib:compile-clx (pathname "clx:")))

  ViewVC Help
Powered by ViewVC 1.1.5