1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; Encoding: utf-8; -*-
5 (in-package :common-lisp-user)
7 ;;; Random early Lisp Implementation-specific fix ups:
12 ;(load "~/../gilbert-neu/lisp/clx-acl/macros.cl")
13 ;(load "~/../gilbert-neu/lisp/clx-acl/bufmac.cl")
15 ;;(load "~/lisp/defsystem/defsystem.lisp")
19 (setq mk::*bother-user-if-no-binary* nil)
20 (setq mk::*compile-during-load* t) )
23 (setq ext:*GC-VERBOSE* nil) ;das merk ich schon selbst.
25 ;;;; Try to find defsystem
28 (ignore-errors (load "library:subsystems/defsystem"))
29 (load (compile-file (merge-pathnames "other/defsystem/defsystem.lisp"))))
31 (eval-when (compile eval load)
32 (pushnew :DEBUG-CLOSURE *features*))
35 ;;;; Optimization levels:
38 ;; FIXME: This is not exactly the right place!
40 ;; We choose to make them constants for read-time evaluation, since we
41 ;; want the presence of the :DEBUG-CLOSURE feature to override any
42 ;; (saftey 0) declaration.
44 (defparameter +optimize-very-fast+
45 '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 0)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))
47 (defparameter +optimize-very-fast-trusted+
48 '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 0)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))
50 (defparameter +optimize-fast+
51 '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 1)) (speed 3) #+:DEBUG-CLOSURE (debug 3)))
53 (defparameter +optimize-normal+
54 '(optimize (safety #.(or #+:DEBUG-CLOSURE 3 2)) (speed 1) #+:DEBUG-CLOSURE (debug 3)))
56 (export '+optimize-very-fast-trusted+)
57 (export '+optimize-very-fast+)
58 (export '+optimize-fast+)
59 (export '+optimize-normal+)
61 ;; Finally declaim normal optimization level
62 (declaim #.+optimize-normal+)
64 ;;(load (merge-pathnames "glisp.system" *load-pathname*))
65 ;;(load (merge-pathnames "graphics-utilities.system" *load-pathname*))
69 (eval-when (compile eval load)
70 (defun rel-path (&rest components)
71 (print (merge-pathnames (make-pathname :name nil :type nil
72 :directory (cons :relative components))
73 (make-pathname :name nil :type nil
75 (truename *load-pathname*))))))
77 ;; Make this build with the CVS tree also ...
79 (load (merge-pathnames "system.lisp" (rel-path "other" "mcclim"))))
82 :source-pathname #.(rel-path "src" "glisp")
84 (defpackage :glisp (:use))
85 #+EXCL (setq comp:*cltl1-compile-file-toplevel-compatibility-p* t)
88 #+EXCL (setq comp:*cltl1-compile-file-toplevel-compatibility-p* nil))
94 #+(AND :CMU (NOT :PTHREAD)) "dep-cmucl"
95 #+(AND :CMU :PTHREAD) "dep-cmucl-dtc"
96 #+(AND ALLEGRO ALLEGRO-V5.0) "dep-acl5"
97 #+(AND ALLEGRO (NOT ALLEGRO-V5.0)) "dep-acl"
99 #+OPENMCL "dep-openmcl"
100 #-(OR OPENMCL CLISP CMU ALLEGRO GCL) #.(error "Configure!"))
102 :depends-on (dependent))
104 :depends-on ("package" dependent))
106 :depends-on ("package" dependent "runes"))
108 :depends-on ("package" dependent "runes" "util")) ))
111 (mk:defsystem closure
112 :source-pathname (make-pathname :name nil :type nil
113 :defaults *load-truename*)
114 :source-extension "lisp"
122 :source-pathname "src"
128 :source-pathname "patches"
130 (:serial "clx-patch"))
135 :source-pathname "imagelib"
143 ;;; Early package definitions
147 ;;; Clousure Protocol Declarations first
149 (:module closure-protcols
150 :source-pathname "protocols"
154 (:file "css-support")))
159 :source-pathname "xml"
162 (:file "encodings" :depends-on ("package"))
163 (:file "encodings-data" :depends-on ("package" "encodings"))
164 #+NIL(:file "dompack")
165 #+NIL(:file "dom-impl" :depends-on ("dompack"))
166 (:file "xml-stream" :depends-on ("package"))
167 #+NIL (:file "xml-name-rune-p" :depends-on ("package"))
168 #+NIL(:file "xml-parse" :depends-on ("package" "dompack"))
169 #+NIL(:file "xml-canonic" :depends-on ("package" "dompack" "xml-parse")) ))
174 :source-pathname "util"
179 :source-pathname "util"
186 :source-pathname "net"
188 ((:file "package" :depends-on ("url"))
189 (:file "common-parse" :depends-on ("package"))
190 (:file "mime" :depends-on ("package"))
191 (:file "url" :depends-on ())
192 (:file "http" :depends-on ("package" "url"))
193 (:file "ftp" :depends-on ("package" "url")) ))
198 :source-pathname "parse"
201 (:file "pt" :depends-on ("package"))
202 (:file "sgml-dtd" :depends-on ("package"))
203 (:file "sgml-parse" :depends-on ("package" "sgml-dtd")) ))
205 ;;; More Random Utilities
208 :source-pathname "util"
210 (:parallel "character-set"
216 :source-pathname "css"
229 :source-pathname "renderer"
234 "device" ;Declaration of the device abstraction
235 "fonts" ;Font Databases
244 "hyphenation" ;Hyphenation of words
245 "clim-draw" ;some drawing "primitives" for the clim device
254 :source-pathname "html"
262 :source-pathname "gui"
265 "gui" "clue-gui" "dce-and-pce" "clue-input"
277 :source-pathname "resources"
280 "resources.lisp")) ))