Ignore:
Timestamp:
08/16/11 09:49:25 (10 years ago)
Author:
Mark Evenson
Message:

Fix #148: READTABLE-CASE :invert doesn't work for symbols.

A slightly modified version of the patch provided by Ole Arnedt with a
test.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/bugs.lisp

    r12606 r13508  
    7272               
    7373                   
    74                    
     74
     75(deftest bugs.readtable-case.1
     76  (let (original-case result)
     77    (setf original-case (readtable-case *readtable*)
     78          (readtable-case *readtable*) :invert
     79          result (list (string (read-from-string "lower"))
     80                       (string (read-from-string "UPPER"))
     81                       (string (read-from-string "#:lower"))
     82                       (string (read-from-string "#:UPPER")))
     83          (readtable-case *readtable*) original-case)
     84    (values-list result))
     85  "LOWER" "upper" "LOWER" "upper")
Note: See TracChangeset for help on using the changeset viewer.