From e71107f750d88eef3bdca897d42f5880c19d01a0 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 14 May 1990 15:00:36 +0000 Subject: [PATCH] Initial revision --- clx/build-clx.lisp | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 clx/build-clx.lisp diff --git a/clx/build-clx.lisp b/clx/build-clx.lisp new file mode 100644 index 000000000..4e7b7258a --- /dev/null +++ b/clx/build-clx.lisp @@ -0,0 +1,25 @@ +;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*- + +;;; Load this file if you want to compile CLX in its entirety. + +(proclaim '(optimize (speed 3) (safety 0) (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 "XLIB") + (rename-package (find-package "XLIB") "OLD-XLIB")) + +;(make-package "XLIB" :use '("LISP")) + + +(compile-file "clx:defsystem.lisp" :error-file nil) +(load "clx:defsystem.fasl") +(xlib:compile-clx (pathname "clx:")) -- GitLab