cl-gui/loader.lisp at master · mathematical-systems/cl-gui · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
;; -*- Mode: common-lisp; Package: cl-user -*-

(eval-when (:compile-toplevel)
  (error "This file is not intended to be compiled!"))

(let ((*default-pathname-defaults* (make-pathname :directory (pathname-directory *load-truename*))))

#+sbcl
(require :asdf)
#+(or allegro lispworks)
(eval-when (:load-toplevel :execute)
  #+allegro (compile-file "lib/asdf/asdf" :if-newer t)
  #+lispworks (compile-file "lib/asdf/asdf")
  (load "lib/asdf/asdf"))

;; FIXME:
(eval-when (:load-toplevel :execute)
  (setf asdf::*user-cache*
        (merge-pathnames
         (concatenate 'string "fasl/"
                      #+allegro "allegrocl/"
                      #+lispworks "lispworks/"
                      #+sbcl "sbcl/")
         *load-pathname*)))

(cl:eval-when (:load-toplevel :execute)
  ;; allow load packages in lib/
  (loop for dir in (directory "lib/*/*/*.asd") do
    (pushnew (make-pathname :directory (pathname-directory dir)) asdf:*central-registry* :test 'equal))
  (loop for dir in (directory "lib/*/*.asd") do
    (pushnew (make-pathname :directory (pathname-directory dir)) asdf:*central-registry* :test 'equal))
  ;; enable/disable verifications, need recompilation
  (pushnew :verify *features*))


;;
(asdf:oos 'asdf:load-op :iterate)
(setf iterate::*always-declare-variables* t)

(load "cl-gui.asd")
(asdf:oos 'asdf:load-op :cl-gui)

)

;; initialization
(setf *random-state* (make-random-state t))
(setf *print-circle* t)

;; default configurations
;; TODO:
#+sbcl (setf sb-impl::*default-external-format* :utf-8)

(setf ps:*js-target-version* 1.5)

(cl-interpol:enable-interpol-syntax)

(setf hunchentoot:*hunchentoot-default-external-format* (flexi-streams:make-external-format :utf8 :eol-style :lf))