blob: a2db10f2d6c2dba4685ae2d1a1be65e9369481c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
*** sacla/lisp/test/must-reader.lisp 2004-08-03 08:34:55.000000000 +0200
--- CLISP/clisp-20040712/sacla-tests/must-reader.lisp 2004-08-07 02:10:05.000000000 +0200
***************
*** 1828,1837 ****
(progn
! #-clisp
(handler-case (null (let ((*features* '())) (read-from-string "#+test1 a")))
(error () nil))
! #+clisp 'skipped)
(let ((*features* '()))
(equal (with-input-from-string (stream "#+test1 a #-test1 b")
--- 1828,1838 ----
(progn
! #-CLISP ; ANSI CL 2.2. refers to the spec of READ, which says that an error
! ; of type end-of-file is signalled.
(handler-case (null (let ((*features* '())) (read-from-string "#+test1 a")))
(error () nil))
! #+CLISP 'skipped)
(let ((*features* '()))
(equal (with-input-from-string (stream "#+test1 a #-test1 b")
|
