CCL: Tests READTABLE-CASE.CASE-* intern symbols in the wrong packages
? (setf *default-pathname-defaults* #p"/home/phoe/Projects/ansi-test/")
#P"/home/emiherd/Projects/ansi-test/"
? (progn (load "gclload1.lsp") (load "gclload2.lsp") (in-package :rt))
;; compilation output omitted
#<Package "REGRESSION-TEST">
? (disable-note :ansi-spec-problem)
#S(NOTE :NAME :ANSI-SPEC-PROBLEM :CONTENTS "A catch-all for tests that illustrate problems in the ANSI spec." :DISABLED T)
? (setf *default-pathname-defaults* (truename #P"sandbox/"))
#P"/home/emiherd/Projects/ansi-test/sandbox/"
? (do-tests)
;; ...
Test #:READTABLE-CASE.CASE-UPCASE failed
Form: (LET ((*READTABLE* (COPY-READTABLE))) (SETF (READTABLE-CASE *READTABLE*) :UPCASE) (MAPCAR #'(LAMBDA (CL-TEST::X) (READ-FROM-STRING CL-TEST::X)) '("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" "ZEBR\\a" "ZEBR\\A" "Zebr\\a" "Zebr\\A")))
Expected value:
(CL-TEST::ZEBRA CL-TEST::ZEBRA CL-TEST::ZEBRA CL-TEST::ZEBR\a CL-TEST::ZEBRA CL-TEST::ZEBR\a CL-TEST::ZEBRA CL-TEST::ZEBR\a CL-TEST::ZEBRA)
Actual value:
(ZEBRA ZEBRA ZEBRA ZEBR\a ZEBRA ZEBR\a ZEBRA ZEBR\a ZEBRA)
Test #:READTABLE-CASE.CASE-DOWNCASE failed
Form: (LET ((*READTABLE* (COPY-READTABLE))) (SETF (READTABLE-CASE *READTABLE*) :DOWNCASE) (MAPCAR #'(LAMBDA (CL-TEST::X) (READ-FROM-STRING CL-TEST::X)) '("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" "ZEBR\\a" "ZEBR\\A" "Zebr\\a" "Zebr\\A")))
Expected value:
(CL-TEST::|zebra| CL-TEST::|zebra| CL-TEST::|zebra| CL-TEST::|zebra| CL-TEST::|zebrA| CL-TEST::|zebra| CL-TEST::|zebrA| CL-TEST::|zebra| CL-TEST::|zebrA|)
Actual value:
(|zebra| |zebra| |zebra| |zebra| |zebrA| |zebra| |zebrA| |zebra| |zebrA|)
Test #:READTABLE-CASE.CASE-PRESERVE failed
Form: (LET ((*READTABLE* (COPY-READTABLE))) (SETF (READTABLE-CASE *READTABLE*) :PRESERVE) (MAPCAR #'(LAMBDA (CL-TEST::X) (READ-FROM-STRING CL-TEST::X)) '("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" "ZEBR\\a" "ZEBR\\A" "Zebr\\a" "Zebr\\A")))
Expected value:
(CL-TEST::|zebra| CL-TEST::|Zebra| CL-TEST::ZEBRA CL-TEST::|zebra| CL-TEST::|zebrA| CL-TEST::ZEBR\a CL-TEST::ZEBRA CL-TEST::|Zebra| CL-TEST::|ZebrA|)
Actual value:
(|zebra| |Zebra| ZEBRA |zebra| |zebrA| ZEBR\a ZEBRA |Zebra| |ZebrA|)
Test #:READTABLE-CASE.CASE-INVERT failed
Form: (LET ((*READTABLE* (COPY-READTABLE))) (SETF (READTABLE-CASE *READTABLE*) :INVERT) (MAPCAR #'(LAMBDA (CL-TEST::X) (READ-FROM-STRING CL-TEST::X)) '("zebra" "Zebra" "ZEBRA" "zebr\\a" "zebr\\A" "ZEBR\\a" "ZEBR\\A" "Zebr\\a" "Zebr\\A")))
Expected value:
(CL-TEST::ZEBRA CL-TEST::|Zebra| CL-TEST::|zebra| CL-TEST::ZEBR\a CL-TEST::ZEBRA CL-TEST::|zebra| CL-TEST::|zebrA| CL-TEST::|Zebra| CL-TEST::|ZebrA|)
Actual value:
(ZEBRA |Zebra| |zebra| ZEBR\a ZEBRA |zebra| |zebrA| |Zebra| |ZebrA|)
A possible quick fix is to mapcar #'string
the symbols after they are interned in order to discard package information and to appropriately modify the expected values.