/[cmucl]/src/clx/provide.lisp
ViewVC logotype

Diff of /src/clx/provide.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by ram, Mon May 14 14:49:03 1990 UTC revision 1.2 by ram, Thu Nov 7 16:58:35 1991 UTC
# Line 14  Line 14 
14  ;;;                     (require :clx <pathname-of-this-file>)  ;;;                     (require :clx <pathname-of-this-file>)
15  ;;;  ;;;
16    
17    #-clx-ansi-common-lisp
18  (in-package :user)  (in-package :user)
19    
20    #+clx-ansi-common-lisp
21    (in-package :common-lisp-user)
22    
23    #-clx-ansi-common-lisp
24  (provide :clx)  (provide :clx)
25    
26  ;;; Load the defsystem file from the source directory.  You may  (defvar *clx-source-pathname*
27  ;;; want to include an explicit extension (such as ".l" or ".lisp").          (pathname "/src/local/clx/*.l"))
 ;;;  
 (load "/src/local/clx/defsystem.l")  
28    
29  ;;; The binary files for a particular lisp implementation and architecture.  (defvar *clx-binary-pathname*
30  ;;;          (let ((lisp
31  (let ((lisp                  (or #+lucid "lucid"
32          (or #+lucid "lucid"                      #+akcl  "akcl"
33              #+excl  "franz"                      #+kcl   "kcl"
34              #+akcl  "akcl"                      #+ibcl  "ibcl"
35              #+kcl   "kcl"                      (error "Can't provide CLX for this lisp.")))
36              #+ibcl  "ibcl"                (architecture
37              (error "Can't figure out what lisp vendor this lisp is from.")))                  (or #+(or sun3 (and sun (or mc68000 mc68020))) "sun3"
38        (computer                      #+(or sun4 sparc) "sparc"
39          (or #+(or sun3 (and sun (or mc68000 mc68020))) "sun3"                      #+(and hp (or mc68000 mc68020)) "hp9000s300"
40              #+(or sun4 sparc) "sparc"                      #+vax "vax"
41              #+(and hp (or mc68000 mc68020)) "hp9000-300"                      #+prime "prime"
42              #+vax "vax"                      #+sunrise "sunrise"
43              (error "Can't figure out what computer vendor this computer is from."))))                      #+ibm-rt-pc "ibm-rt-pc"
44    (xlib:load-clx (format nil "/src/local/clx/~A.~A/" lisp computer)))                      #+mips "mips"
45                        #+prism "prism"
46                        (error "Can't provide CLX for this architecture."))))
47              (pathname (format nil "/src/local/clx/~A.~A/" lisp architecture))))
48    
49    (defvar *compile-clx*
50            nil)
51    
52    (load (merge-pathnames "defsystem" *clx-source-pathname*))
53    
54    (if *compile-clx*
55        (compile-clx *clx-source-pathname* *clx-binary-pathname*)
56      (load-clx *clx-binary-pathname*))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5