From da1389e08c3adee1fd2f0c86efa1442a19473191 Mon Sep 17 00:00:00 2001 From: rtoy Date: Sat, 29 Dec 2018 06:08:46 -0800 Subject: [PATCH] Remove unused stuff for cmucl (#130) cmucl still builds with provide.lisp, but basically comments everything out except for `(provide :clx)`. Just remove everything. This is a legacy file, so it shouldn't affect any existing uses of clx. --- provide.lisp | 32 -------------------------------- 1 file changed, 32 deletions(-) diff --git a/provide.lisp b/provide.lisp index 4109482..5f2c7ca 100644 --- a/provide.lisp +++ b/provide.lisp @@ -17,35 +17,3 @@ (in-package :common-lisp-user) (provide :clx) - -(defvar *clx-source-pathname* - (pathname "/src/local/clx/*.l")) - -(defvar *clx-binary-pathname* - (let ((lisp - (or #+lucid "lucid" - #+akcl "akcl" - #+kcl "kcl" - #+ibcl "ibcl" - (error "Can't provide CLX for this lisp."))) - (architecture - (or #+(or sun3 (and sun (or mc68000 mc68020))) "sun3" - #+(or sun4 sparc) "sparc" - #+(and hp (or mc68000 mc68020)) "hp9000s300" - #+vax "vax" - #+prime "prime" - #+sunrise "sunrise" - #+ibm-rt-pc "ibm-rt-pc" - #+mips "mips" - #+prism "prism" - (error "Can't provide CLX for this architecture.")))) - (pathname (format nil "/src/local/clx/~A.~A/" lisp architecture)))) - -(defvar *compile-clx* - nil) - -(load (merge-pathnames "defsystem" *clx-source-pathname*)) - -(if *compile-clx* - (compile-clx *clx-source-pathname* *clx-binary-pathname*) - (load-clx *clx-binary-pathname*))