gclload1.lsp 1.9 KB
Newer Older
1
2
#+ecl (si::package-lock (find-package "COMMON-LISP") nil)
#+ecl (compile nil '(lambda () nil))
Daniel Kochmański's avatar
Daniel Kochmański committed
3
4
5
#+ecl (setq c:*suppress-compiler-warnings* t
            c:*suppress-compiler-notes*    t
            c:*suppress-compiler-messages* t)
6
#+:armedbear (require 'pprint)
7
8
9
10
11
12
13
14
15
#+cmu
(progn
  (setq ext:*gc-verbose* nil)
  ;; Set *default-pathname-defaults* to include the full path to this
  ;; file.  This is needed for the tests so that they'll be loaded
  ;; correctly from the subdirectories.
  (setf *default-pathname-defaults*
	(make-pathname :name nil :type nil :defaults *load-truename*)))

16
#+gcl (setq compiler:*suppress-compiler-notes* t
pfdietz's avatar
pfdietz committed
17
18
19
20
21
            compiler:*suppress-compiler-warnings* t
            compiler:*compile-verbose* nil
            compiler:*compile-print* nil)

#+lispworks (setq compiler::*compiler-warnings* nil)
22
#+lispworks (make-echo-stream *standard-input* *standard-output*)
23
#+clisp (setq custom::*warn-on-floating-point-contagion* nil)
24

25
;;; Configure logical pathnames
26
27
28
29
30
31
(setf (logical-pathname-translations "ANSI-TESTS")
      `(("AUX;*.*.*"
         ,(merge-pathnames "auxiliary/"
                           (make-pathname
                            :directory
                            (pathname-directory *load-truename*))))))
32

33
34
35
36
37
38
39
40
(let (*load-verbose* *load-print* *compile-verbose* *compile-print*)
  (load "compile-and-load.lsp"))

(let (*load-verbose* *load-print* *compile-verbose* *compile-print*)
  (load "rt-package.lsp")
  (compile-and-load "rt.lsp")
  (load "cl-test-package.lsp")
  (in-package :cl-test)
41
  (compile-and-load "ANSI-TESTS:AUX;ansi-aux-macros.lsp")
42
43
44
45
  (handler-bind
   #-sbcl ()
   #+sbcl ((sb-ext:code-deletion-note #'muffle-warning))
   (load "universe.lsp"))
46
47
  (compile-and-load "ANSI-TESTS:AUX;random-aux.lsp")
  (compile-and-load "ANSI-TESTS:AUX;ansi-aux.lsp")
48
49
50
51
52
53
54
55
  
  (load "cl-symbol-names.lsp")
  (load "notes.lsp"))

(setq *compile-verbose* nil
      *compile-print* nil
      *load-verbose* nil)