0.7.7.5:
[sbcl.git] / tests / reader.impure.lisp
1 ;;;; tests related to the Lisp reader
2
3 ;;;; This file is impure because we want to modify the readtable and stuff.
4
5 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; more information.
7 ;;;;
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
10 ;;;; from CMU CL.
11 ;;;; 
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.
15
16 (in-package :cl-user)
17
18 ;;; Bug 30, involving mistakes in binding the read table, made this
19 ;;; code fail.
20 (defun read-vector (stream char)
21   (declare (ignorable char))
22   (coerce (read-delimited-list #\] stream t) 'vector))
23 (set-macro-character #\[ #'read-vector nil)
24 (set-macro-character #\] (get-macro-character #\)) nil)
25 (multiple-value-bind (res pos)
26     (read-from-string "[1 2 3]") ; ==> #(1 2 3), 7
27   (assert (equalp res #(1 2 3)))
28   (assert (= pos 7)))
29 (multiple-value-bind (res pos)
30     (read-from-string "#\\x") ; ==> #\x, 3
31   (assert (equalp res #\x))
32   (assert (= pos 3)))
33 (multiple-value-bind (res pos)
34     (read-from-string "[#\\x]")
35   (assert (equalp res #(#\x)))
36   (assert (= pos 5)))
37
38 ;;; success
39 (quit :unix-status 104)