[Openmcl-devel] ANSI Lisp Tests

[Brent Fulgham]

I ran the Paul Dietz's ANSI Lisp suite against OpenMCL 1.1 (32 and 64- 
bit).  (You can get the test suite by grabbing the source tarball  
from the GCL site)

Chaz:~/Projects/Lisp/cl-ansi-test brent$ wget ftp://ftp.gnu.org/pub/ 
gnu/gcl/gcl-2.6.7.tar.gz
Chaz:~/Projects/Lisp/cl-ansi-test brent$ tar -xzf gcl-2.6.7.tar.gz
Chaz:~/Projects/Lisp/cl-ansi-test brent$ cd gcl-2.6.7
Chaz:~/Projects/Lisp/cl-ansi-test/gcl-2.6.7 brent$ mv ansi-tests/ ..
Chaz:~/Projects/Lisp/cl-ansi-test/gcl-2.6.7 brent$ cd ../ansi-tests
Chaz:~/Projects/Lisp/cl-ansi-test/ansi-tests brent$ openmcl11 -l  
gclload.lsp


32-Bit OpenMCL 1.1
================

Fails during MAKE-ARRAY.27:

  MAKE-ARRAY.23 MAKE-ARRAY.24 MAKE-ARRAY.25 MAKE-ARRAY.26 MAKE-ARRAY.27
 > Error: Stack overflow on value stack.
 > While executing: CCL::%NEXT-NON-WHITESPACE-CHAR-AND-ATTR-NO-EOF,  
in process listener(1).
 > Type :GO to continue, :POP to abort, :R for a list of available  
restarts.
 > If continued: Skip loading "gclload.lsp"
 > Type :? for other options.
1 > :B
(F007BA30) : 0 (%NEXT-NON-WHITESPACE-CHAR-AND-ATTR-NO-EOF ?) 16
(F007BA30) : 1 (%READ-LIST-EXPRESSION #<STRING-INPUT-STREAM   
#x8FFFE8E> '(NIL) [...]) 104
(F007BA50) : 3 (READ-LIST #<STRING-INPUT-STREAM  #x8FFFE8E> [...]) 208
(F007BA70) : 5 (%PARSE-EXPRESSION #<STRING-INPUT-STREAM  #x8FFFE8E> #\ 
( '(NIL)) 264
(F007BA90) : 7 (%READ-LIST-EXPRESSION #<STRING-INPUT-STREAM   
#x8FFFE8E> '(NIL) [...]) 172
(F007BAB0) : 9 (READ-LIST #<STRING-INPUT-STREAM  #x8FFFE8E> [...]) 208
(F007BAD0) : 11 (%PARSE-EXPRESSION #<STRING-INPUT-STREAM  #x8FFFE8E> # 
\( '(NIL)) 264
(F007BAF0) : 13 (%READ-LIST-EXPRESSION #<STRING-INPUT-STREAM   
#x8FFFE8E> '(NIL) [...]) 172

[...]



(deftest make-array.27
   (make-array '(4) :initial-element 'x
               :allow-other-keys t
               :allow-other-keys nil
               :nonsense-argument t)
   #(x x x x))


64-Bit OpenMCL 1.1
================
CHAR-GREATERP.ORDER.3 CHAR-GREATERP.ORDER.4 FEATURES.1 FEATURES.2  
FEATURES.3
2 out of 10697 total tests failed: GET-PROPERTIES.8, UPGRADED-ARRAY- 
ELEMENT-TYPE.NIL.1.
Welcome to OpenMCL Version 1.1-pre-061024 (DarwinPPC64)!
?

1.  Test GET-PROPERTIES.8 failed
Form: (GET-PROPERTIES '(1000000000000 B C D) (LIST (1+ 999999999999)))
Expected values: NIL
                  NIL
                  NIL
Actual values: 1000000000000
                B
                (1000000000000 B C D).

2.  Test UPGRADED-ARRAY-ELEMENT-TYPE.NIL.1 failed
Form: (LET ((UAET-NIL (UPGRADED-ARRAY-ELEMENT-TYPE NIL))) (LOOP FOR E  
IN *UNIVERSE* WHEN (TYPEP E UAET-NIL) COLLECT E))
Expected value: NIL
Actual value: (NIL T :A :B :|| :\a :|1234| #:NIL #:T #:FOO #:|| \a ||  
\ |a| |a| |ab| COMMON-LISP-USER::FOO COMMON-LISP-USER::X CONS LAMBDA  
*PRINT-READABLY* PUSH 0 1152921504606846970 1152921504606846971  
1152921504606846972 1152921504606846973 1152921504606846974  
1152921504606846977 1152921504606846978 1152921504606846979  
1152921504606846980 -1152921504606846981 -1152921504606846980  
-1152921504606846979 -1152921504606846978 -1152921504606846977  
-1152921504606846974 -1152921504606846973 -1152921504606846972  
-1152921504606846971 2 4 8 16 32 64 128 256 512 1024 2048 4096 8192  
16384 32768 65536 131072 262144 524288 1048576 2097152 4194304  
8388608 16777216 33554432 67108864 134217728 268435456 536870912  
1073741824 2147483648 4294967296 8589934592 17179869184 34359738368  
68719476736 137438953472 274877906944 549755813888 1099511627776  
2199023255552 4398046511104 8796093022208 17592186044416  
35184372088832 70368744177664 140737488355328 281474976710656  
562949953421312 1125899906842624 2251799813685248 4503599627370496  
90071992547409

[... and so on for a LONG time ....]

#<HASH-TABLE :TEST EQUALP size 0/60 #x1049A4B0C> #P"foo" #P"bar"  
#P"foo.txt" #P"bar.txt" #P"*" #P"*.txt" #<SYNONYM-STREAM to *TERMINAL- 
IO* #x1048BC23C> #<SYNONYM-STREAM to *TERMINAL-IO* #x1048BC1FC>  
#<SYNONYM-STREAM to *TERMINAL-IO* #x1048BC35C> #<ECHOING-TWO-WAY- 
STREAM input #<BASIC-CHARACTER-INPUT-STREAM ISO-8859-1 (TTY/0)  
#x1048BCF9C>, output #<BASIC-CHARACTER-OUTPUT-STREAM ISO-8859-1 (TTY/ 
1) #x1048BCBEC> #x1048C880C> #<SYNONYM-STREAM to *TERMINAL-IO*  
#x1048BC27C> #<READTABLE #x1042EC1FC> #<READTABLE #x1049A44FC> #S(FOO- 
STRUCTURE :X 1 :Y A :Z NIL) #S(FOO-STRUCTURE :X 1 :Y A :Z NIL) #S(BAR- 
STRUCTURE :X 1 :Y A :Z NIL) #<Compiled-function CONS #x104591DFC>  
#<Compiled-function CAR #x104591F1C> #<Compiled-function APPEND  
#x10408E0AC> #<Compiled-function VALUES #x104006E5C> #<Compiled- 
function COND Macroexpander #x1045A18EC> #<Anonymous Function  
#x1049A8D3C> #.(CCL::INITIALIZE-RANDOM-STATE 64497 9)).
UPGRADED-ARRAY-ELEMENT-TYPE.ERROR.1