Ignore:
Timestamp:
Jul 28, 2009, 9:06:02 PM (10 years ago)
Author:
gz
Message:

Add test

File:
1 edited

Legend:

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

    r12355 r12472  
    10491049      (serious-condition (c) c))
    10501050  :win)
     1051
     1052(deftest ccl.r12429
     1053    (let ((ccl::*print-string-length* 10))
     1054      (with-standard-io-syntax
     1055          (values (read-from-string (prin1-to-string "123456789012345")))))
     1056  "123456789012345")
    10511057
    10521058;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.