-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcompileit.lsp
38 lines (29 loc) · 1.21 KB
/
compileit.lsp
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
;;; Uncomment the next line to make MAKE-STRING and MAKE-SEQUENCE
;;; tests require that a missing :initial-element argument defaults
;;; to a single value, rather than leaving the string/sequence filled
;;; with arbitrary legal garbage.
;; (pushnew :ansi-tests-strict-initial-element *features*)
#+allegro (run-shell-command "rm -f *.fasl")
#+cmu (run-program "rm" (list "-f"
(concatenate 'string "*."
(pathname-type (compile-file-pathname "a.lisp")))))
(load "gclload1.lsp")
(load "gclload2.lsp")
(setq rt::*compile-tests* t)
#+allegro
(progn
(rt:disable-note :nil-vectors-are-strings)
(rt:disable-note :standardized-package-nicknames)
(rt:disable-note :type-of/strict-builtins)
(rt:disable-note :assume-no-simple-streams)
(rt:disable-note :assume-no-gray-streams))
(in-package :cl-test)
;;; These two tests will misbehave if the tests are being
;;; invoked from a file that is being loaded, so remove them
(when *load-pathname*
(mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1)))
;; We could use uiop:chdir here, but what about new implementations?
(setf *default-pathname-defaults* (truename #P"sandbox/"))
(time (regression-test:do-tests))
#+allegro :exit
#+(or cmu sbcl gcl) (quit)