New ansi-test failures
Describe the bug
Updated cmucl ansi-tests to the latest upstream ansi-test.
To Reproduce
Steps to reproduce the behavior:
- Check out cmucl/ansi-tests
- Run
make LISP='cmulisp -batch -noinit -nositeinit'
- See error:
4 unexpected failures: MAKE-LOAD-FORM.ORDER.8, MAKE-LOAD-FORM.ORDER.13,
MAKE-LOAD-FORM.ORDER.14, PARSE-NAMESTRING.5.
3 unexpected successes: FORMAT.E.6, FORMAT.E.20, ROOM.4.
Expected behavior
There should be no new errors, but I think the latest ansi-tests have added some new tests. We need to figure add them to the expected failures list or fix them. Need to investigate the 3 unexpected successes too.
Screenshots
No screenshots, but here's a summary of the failed tests.
Test PARSE-NAMESTRING.5 failed
Form: (LET* ((PATHNAME (PARSE-NAMESTRING "cltest:temp.dat.newest"))
(NAMESTRING (NAMESTRING PATHNAME)))
(AND (TYPEP PATHNAME 'LOGICAL-PATHNAME)
(OR (EQUAL NAMESTRING "CLSTEST:TEMP.DAT.NEWEST")
(EQUAL NAMESTRING "CLSTEST:TEMP.DAT.newest"))))
Expected value:
T
Actual value:
NIL
and
Test MAKE-LOAD-FORM.ORDER.8 failed
Form: (PROGN
(SETF *LOAD-FORM-TEST-ORDER* NIL)
(WRITE-TEXT-COMPILE-AND-LOAD "(eval-when (:compile-toplevel)
(defparameter *aa* (make-instance 'load-form-test-object :name 'a))
(defparameter *bb* (make-instance 'load-form-test-object :name 'b))
(setf (load-form-test-make-dependency1 *bb*) *aa*)
(setf (load-form-test-init-dependency1 *aa*) *bb*))
(defparameter *b* #.*bb*)
(defparameter *a* #.*aa*)")
(LET ((RESULTS
(LIST (EQL (LOAD-FORM-TEST-NAME *A*) 'A)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY1 *A*) NIL)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY2 *A*) NIL)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY1 *A*) *B*)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY2 *A*) NIL)
(EQL (LOAD-FORM-TEST-NAME *B*) 'B)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY1 *B*) *A*)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY2 *B*) NIL)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY1 *B*) NIL)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY2 *B*) NIL)
(REVERSE *LOAD-FORM-TEST-ORDER*))))
(MAPCAR #'MAKUNBOUND '(*A* *B* *C* *AA* *BB* *CC*))
(VALUES-LIST RESULTS)))
Expected values:
T
T
T
T
T
T
T
T
T
T
(:CREATING A :CREATING B :INITIALIZING B :INITIALIZING A)
Actual value:
#<C::COMPILER-ERROR {60FFE83D}> [Circular references in creation form for B]
Test MAKE-LOAD-FORM.ORDER.13 failed
Form: (PROGN
(SETF *LOAD-FORM-TEST-ORDER* NIL)
(WRITE-TEXT-COMPILE-AND-LOAD "(eval-when (:compile-toplevel)
(defparameter *aa* (make-instance 'load-form-test-object :name 'a))
(defparameter *bb* (make-instance 'load-form-test-object :name 'b))
(defparameter *cc* (make-instance 'load-form-test-object :name 'c))
(setf (load-form-test-make-dependency1 *bb*) *aa*)
(setf (load-form-test-make-dependency1 *cc*) *bb*)
(setf (load-form-test-make-dependency2 *cc*) *aa*)
(setf (load-form-test-init-dependency1 *bb*) *cc*)
(setf (load-form-test-init-dependency1 *aa*) *cc*)
(setf (load-form-test-init-dependency2 *aa*) *bb*))
(defparameter *a* #.*aa*)
(defparameter *b* #.*bb*)
(defparameter *c* #.*cc*)")
(LET ((RESULTS
(LIST (EQL (LOAD-FORM-TEST-NAME *A*) 'A)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY1 *A*) NIL)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY2 *A*) NIL)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY1 *A*) *C*)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY2 *A*) *B*)
(EQL (LOAD-FORM-TEST-NAME *B*) 'B)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY1 *B*) *A*)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY2 *B*) NIL)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY1 *B*) *C*)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY2 *B*) NIL)
(EQL (LOAD-FORM-TEST-NAME *C*) 'C)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY1 *C*) *B*)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY2 *C*) *A*)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY1 *C*) NIL)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY2 *C*) NIL)
(REVERSE *LOAD-FORM-TEST-ORDER*))))
(MAPCAR #'MAKUNBOUND '(*A* *B* *C* *AA* *BB* *CC*))
(VALUES-LIST RESULTS)))
Expected values:
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
(:CREATING A :CREATING B :CREATING C :INITIALIZING C :INITIALIZING B
:INITIALIZING A)
Actual value:
#<C::COMPILER-ERROR {600F16BD}> [Circular references in creation form for C]
Test MAKE-LOAD-FORM.ORDER.14 failed
Form: (PROGN
(SETF *LOAD-FORM-TEST-ORDER* NIL)
(WRITE-TEXT-COMPILE-AND-LOAD "(eval-when (:compile-toplevel)
(defparameter *aa* (make-instance 'load-form-test-object :name 'a))
(defparameter *bb* (make-instance 'load-form-test-object :name 'b))
(defparameter *cc* (make-instance 'load-form-test-object :name 'c))
(setf (load-form-test-make-dependency1 *bb*) *aa*)
(setf (load-form-test-make-dependency1 *cc*) *bb*)
(setf (load-form-test-make-dependency2 *cc*) *aa*)
(setf (load-form-test-init-dependency1 *bb*) *cc*)
(setf (load-form-test-init-dependency1 *aa*) *cc*)
(setf (load-form-test-init-dependency2 *aa*) *bb*))
(defparameter *c* #.*cc*)
(defparameter *b* #.*bb*)
(defparameter *a* #.*aa*)")
(LET ((RESULTS
(LIST (EQL (LOAD-FORM-TEST-NAME *A*) 'A)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY1 *A*) NIL)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY2 *A*) NIL)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY1 *A*) *C*)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY2 *A*) *B*)
(EQL (LOAD-FORM-TEST-NAME *B*) 'B)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY1 *B*) *A*)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY2 *B*) NIL)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY1 *B*) *C*)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY2 *B*) NIL)
(EQL (LOAD-FORM-TEST-NAME *C*) 'C)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY1 *C*) *B*)
(EQL (LOAD-FORM-TEST-MAKE-DEPENDENCY2 *C*) *A*)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY1 *C*) NIL)
(EQL (LOAD-FORM-TEST-INIT-DEPENDENCY2 *C*) NIL)
(REVERSE *LOAD-FORM-TEST-ORDER*))))
(MAPCAR #'MAKUNBOUND '(*A* *B* *C* *AA* *BB* *CC*))
(VALUES-LIST RESULTS)))
Expected values:
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
(:CREATING A :CREATING B :CREATING C :INITIALIZING C :INITIALIZING B
:INITIALIZING A)
Actual value:
#<C::COMPILER-ERROR {60185BB5}> [Circular references in creation form for C]
Desktop (please complete the following information):
- OS: Linux
- Version snapshot-2021-07