From 608e92708f860587fc70d6cf57cb134d924d317a Mon Sep 17 00:00:00 2001
From: dan <none>
Date: Sun, 28 Jan 2001 03:06:46 -0800
Subject: [PATCH] Initial revision

darcs-hash:20010128110646-2591e-dc87af2487199603ef7f09e420f3677cdcc89040.gz
---
 build-clx.lisp | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 build-clx.lisp

diff --git a/build-clx.lisp b/build-clx.lisp
new file mode 100644
index 0000000..76b3299
--- /dev/null
+++ b/build-clx.lisp
@@ -0,0 +1,33 @@
+;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
+
+;;; Load this file if you want to compile CLX in its entirety.
+(proclaim '(optimize (speed 3) (safety 1) (space 1)
+		     (compilation-speed 0)))
+
+
+;;; Hide CLOS from CLX, so objects stay implemented as structures.
+;;;
+#||
+(when (find-package "CLOS")
+  (rename-package (find-package "CLOS") "NO-CLOS-HERE"))
+(when (find-package "PCL")
+  (rename-package (find-package "PCL") "NO-PCL-HERE"))
+(when (find-package "SB-PCL")
+  (rename-package (find-package "SB-PCL") "NO-SB-PCL-HERE"))
+||#
+
+(when (find-package "XLIB")
+  (delete-package "XLIB"))
+
+(unless (find-package "XLIB")
+  (make-package "XLIB" :use '("COMMON-LISP")))
+
+#-sbcl
+(compile-file "clx:defsystem.lisp" :error-file nil :load t)
+
+#+sbcl
+(progn (compile-file "clx:defsystem.lisp")
+       (load "clx:defsystem"))
+
+(with-compilation-unit ()
+  (#+cmu xlib:compile-clx #-cmu compile-clx (pathname "CLX:")))