Skip to content
Snippets Groups Projects
Commit a4df9b2d authored by pfdietz's avatar pfdietz
Browse files

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

parent 8121523d
No related branches found
No related tags found
No related merge requests found
......@@ -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")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment