/[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.4 by pfdietz, Sun Feb 23 17:11:14 2003 UTC revision 1.5 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 47  Line 47 
47    
48  (deftest read-symbol.3  (deftest read-symbol.3
49    (multiple-value-bind (s n)    (multiple-value-bind (s n)
50        (ignore-errors (read-from-string "#:abc"))        (let () (ignore-errors (read-from-string "#:abc")))
51      (not      (not
52       (and (symbolp s)       (and (symbolp s)
53            (eql n 5)            (eql n 5)
# Line 57  Line 57 
57    
58  (deftest read-symbol.4  (deftest read-symbol.4
59    (multiple-value-bind (s n)    (multiple-value-bind (s n)
60        (ignore-errors (read-from-string "#:|abc|"))        (let () (ignore-errors (read-from-string "#:|abc|")))
61      (not      (not
62       (and (symbolp s)       (and (symbolp s)
63            (eql n 7)            (eql n 7)
# Line 67  Line 67 
67    
68  (deftest read-symbol.5  (deftest read-symbol.5
69    (multiple-value-bind (s n)    (multiple-value-bind (s n)
70        (ignore-errors (read-from-string "#:||"))        (let () (ignore-errors (read-from-string "#:||")))
71      (if (not (symbolp s))      (if (not (symbolp s))
72          s          s
73        (not (not        (not (not
# Line 91  Line 91 
91    
92  (deftest read-symbol.7  (deftest read-symbol.7
93    (multiple-value-bind (s n)    (multiple-value-bind (s n)
94        (ignore-errors (read-from-string ":ABCD"))        (let () (ignore-errors (read-from-string ":ABCD")))
95      (if (not (symbolp s))      (if (not (symbolp s))
96          s          s
97        (not (not        (not (not

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

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