gclload.lsp 992 Bytes
Newer Older
1 2 3 4 5 6
;;; 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*)

7
#+(and clisp (or win32 cygwin))       ; w2k exits on (disassemble 'car)
8 9 10 11
(without-package-lock ("SYS")
 (defun sys::disassemble-machine-code (a b c)
   (format t "~&<~S ~S ~S>~%" a b c)))

12
#+allegro (run-shell-command "rm -f *.fasl")
13
#+allegro (setq *enclose-printer-errors* nil)
14
#+cmu (run-program "rm" '("-f" "*.x86f" "*.sparcf" "*.ppcf"))
15

16 17
(load "gclload1.lsp")
(load "gclload2.lsp")
18 19 20 21 22 23 24 25 26

#+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))

27
(in-package :cl-test)
28
(time (regression-test:do-tests))