Commit a4df9b2d authored by pfdietz's avatar pfdietz

Various changes to get the test suite to run (sort of) under ECL.

parent 8121523d
......@@ -272,6 +272,7 @@
t)))
(defun name-char.1.body ()
(declare (optimize (safety 3)))
(loop for x in *universe*
for s = (catch-type-error (string x))
always
......@@ -279,4 +280,7 @@
(let ((c (name-char x)))
(or (not c)
(characterp c)
(string-equal (char-name c) s))))))
\ No newline at end of file
(let ((name (char-name c)))
(declare (type (or null string) name))
(and name
(string-equal name s))))))))
......@@ -196,7 +196,7 @@
;;; Tests of packages
(load "packages.lsp")
#-ecl (load "packages.lsp")
;;; Tests of sequences
......@@ -245,7 +245,7 @@
(load "structure-00.lsp")
(load "structures-01.lsp")
(load "structures-02.lsp")
(load "structures-03.lsp")
#-ecl (load "structures-03.lsp")
;;; Tests of types and classes
......
......@@ -6,4 +6,4 @@ test-unixport:
echo "(load \"gclload.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out
clean:
rm -f test.out *.fasl *.o *~ *.fn *.x86f *.fasl rt/*.o rt/*.fasl rt/*.fn rt/*~ rt/*.x86f rt/*.fasl
rm -f test.out *.fasl *.o *.so *~ *.fn *.x86f *.fasl
......@@ -36,4 +36,4 @@
(:shadowing-import-from "DS1" "B")
(:use "DS1" "DS3")
(:intern "X" "Y" "Z")
(:import-from "DS2" "F"))9
(:import-from "DS2" "F"))
......@@ -4,7 +4,7 @@
;;;; Contains: Loader for files containing package tests
(compile-and-load "packages-00.lsp")
(load "packages-00.lsp")
(load "packages-01.lsp")
(load "packages-02.lsp")
(load "packages-03.lsp")
......
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