diff --git a/ansi-tests/doit.lsp b/ansi-tests/doit.lsp index 9d83ca37f733db43e1722dc14bb98920934f9cec..419babbe01f30754842d148c69f466b7dced316d 100644 --- a/ansi-tests/doit.lsp +++ b/ansi-tests/doit.lsp @@ -33,11 +33,36 @@ #+cmu (progn - (setf ext:*ignore-extra-right-parentheses* nil) - (rt:disable-note :nil-vectors-are-strings)) + (setf ext:*ignore-extra-right-parentheses* nil) + (rt:disable-note :nil-vectors-are-strings)) #+gcl(si::use-fast-links nil) +#+clisp +(progn ; see also clisp/utils/clispload.lsp + ;; Paul Dietz assumes a particular implementation for sequence functions + ;; (MAKE-SEQUENCE, CONCATENATE, MAP, ...) that rejects result types like + ;; (OR (VECTOR BIT) (VECTOR T)) because the element type is ambiguous. + ;; CLISP handles these ambiguous cases by computing the union type of the + ;; possible element types and therefore does not need to give an error. + (rt:disable-note :result-type-element-type-by-subtype) + ;; for the pretty-printer + (setq custom:*pprint-first-newline* nil) + ;; for READ-BYTE.ERROR.3 READ-BYTE.ERROR.4 READ-BYTE.ERROR.6 + ;; WRITE-BYTE.ERROR.3 OPEN.66 OPEN.OUTPUT.30 + (setq custom:*reopen-open-file* 'warn) + ;; For ENSURE-DIRECTORIES-EXIST.8 + (when (ext:probe-directory "scratch/") + (mapc #'delete-file (directory "scratch/*")) + (ext:delete-dir "scratch/")) + ;; A few tests call DISASSEMBLE. Make it work without user intervention. + (setf (ext:getenv "PAGER") "cat") + ;; One test exceeds the memory available in the SPVW_PURE_BLOCKS model. + (when (and (= (logand (sys::address-of nil) #xffffff) 0) ; SPVW_PURE_BLOCKS ? + (<= (integer-length most-positive-fixnum) 26)) ; 32-bit machine ? + ;; Inhibit the CHAR-INT.2 test. + (rt:rem-test 'cl-test:char-int.2))) + (in-package :cl-test) ;;; These two tests will misbehave if the tests are being @@ -48,4 +73,4 @@ (time (regression-test:do-tests)) #+allegro (cl-user::exit) -#+(or cmu sbcl gcl armedbear) (cl-user::quit) +#+(or cmu sbcl gcl armedbear clisp) (cl-user::quit)