compileit.lsp 1.21 KB
Newer Older
1 2 3 4 5 6 7
;;; 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")
8 9 10
#+cmu (run-program "rm" (list "-f"
			      (concatenate 'string "*."
					   (pathname-type (compile-file-pathname "a.lisp")))))
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

(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)
26 27 28 29 30 31

;;; 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)))

32 33 34
;; We could use uiop:chdir here, but what about new implementations?
(setf *default-pathname-defaults* (truename #P"sandbox/"))

35 36 37
(time (regression-test:do-tests))

#+allegro :exit
38
#+(or cmu sbcl gcl) (quit)