tests/read.lisp

   1 ;; TODO: Uncomment when either read-from-string supports all these parameters
   2 ;; or when test macro supports error handling, whichever comes first
   3 ;; (test (equal (read-from-string " 1 3 5" t nil :start 2) (values 3 5)))
   4 (expected-failure
   5  (equal (read-from-string "(a b c)") (values '(A B C) 7)))