Changeset 12855 for trunk/tests


Ignore:
Timestamp:
Sep 21, 2009, 12:56:51 PM (10 years ago)
Author:
gz
Message:

add test case from bug #601

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r12853 r12855  
    15351535                                (assert (= 1 (tag)))))")
    15361536  ())
     1537
     1538(deftest ccl.bug#601
     1539    (flet ((dispatch-macro-char-p (char &optional (rt *readtable*))
     1540             (handler-case
     1541                 (prog1 t
     1542                   (get-dispatch-macro-character char #\x rt))
     1543               (error () nil))))
     1544      (let ((*readtable* (copy-readtable nil)))
     1545        (values (dispatch-macro-char-p #\$)
     1546                (make-dispatch-macro-character #\$ nil)
     1547                (dispatch-macro-char-p #\$))))
     1548  nil t t)
     1549
Note: See TracChangeset for help on using the changeset viewer.