Commit fe330db1 authored by sds's avatar sds

add clisp customizations from clisp/utils/clispload.lsp

parent 07944609
......@@ -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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment