1 ;;;; tests related to the Lisp reader
3 ;;;; This file is impure because we want to modify the readtable and stuff.
5 ;;;; This software is part of the SBCL system. See the README file for
8 ;;;; While most of SBCL is derived from the CMU CL system, the test
9 ;;;; files (like this one) were written from scratch after the fork
12 ;;;; This software is in the public domain and is provided with
13 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
14 ;;;; more information.
16 (load "assertoid.lisp")
17 (use-package "ASSERTOID")
19 ;;; Bug 30, involving mistakes in binding the read table, made this
21 (defun read-vector (stream char)
22 (declare (ignorable char))
23 (coerce (read-delimited-list #\] stream t) 'vector))
24 (set-macro-character #\[ #'read-vector nil)
25 (set-macro-character #\] (get-macro-character #\)) nil)
26 (multiple-value-bind (res pos)
27 (read-from-string "[1 2 3]") ; ==> #(1 2 3), 7
28 (assert (equalp res #(1 2 3)))
30 (multiple-value-bind (res pos)
31 (read-from-string "#\\x") ; ==> #\x, 3
32 (assert (equalp res #\x))
34 (multiple-value-bind (res pos)
35 (read-from-string "[#\\x]")
36 (assert (equalp res #(#\x)))
39 ;;; Bug 51b. (try to throw READER-ERRORs when the reader encounters
41 (assert (raises-error? (read-from-string "1e1000") reader-error))
42 (assert (raises-error? (read-from-string "1/0") reader-error))
45 (quit :unix-status 104)