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)