/[gcl]/gcl/ansi-tests/reader-test.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/reader-test.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by pfdietz, Sat Jul 12 13:46:01 2003 UTC revision 1.6 by pfdietz, Sat Aug 9 18:09:37 2003 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
 (declaim (optimize (safety 3)))  
   
8  (deftest readtable-valid (not (readtablep *readtable*)) nil)  (deftest readtable-valid (not (readtablep *readtable*)) nil)
9  (deftest readtablep.1  (deftest readtablep.1
10      (and (not (readtablep nil))      (and (not (readtablep nil))
# Line 35  Line 33 
33           )           )
34    t)    t)
35    
36    (deftest readtablep.2
37      (loop for x in *universe*
38            unless (if (typep x 'readtable) (readtablep x)
39                     (not (readtablep x)))
40            collect x)
41      nil)
42    
43    (deftest readtablep.error.1
44      (classify-error (readtablep))
45      program-error)
46    
47    (deftest readtablep.error.2
48      (classify-error (readtablep nil nil))
49      program-error)
50    
51    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
52    
53  (deftest read-symbol.1  (deftest read-symbol.1
54      (let ((*package* (find-package "CL-TEST")))      (let ((*package* (find-package "CL-TEST")))
55        (ignore-errors (read-from-string "a")))        (ignore-errors (read-from-string "a")))
# Line 152  Line 167 
167     (error (c) c))     (error (c) c))
168    t)    t)
169    
170      (deftest read-float.1
171      (eqlt -0.0 (- 0.0))
172      t)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26