/[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.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Wed Oct 2 03:45:30 2002 UTC
# Line 97  Line 97 
97                             "ABCD"))))                             "ABCD"))))
98    t)    t)
99                            
100    #|
101  (deftest read-symbol-8  (deftest read-symbol-8
102      (multiple-value-bind (s n)      (multiple-value-bind (s n)
103          (ignore-errors (read-from-string "::ABCD"))          (ignore-errors (read-from-string "::ABCD"))
# Line 107  Line 108 
108               (string-equal (symbol-name s)               (string-equal (symbol-name s)
109                             "ABCD"))))                             "ABCD"))))
110    t)    t)
111    |#
112    
113  (defun read-symbol-9-body (natoms maxlen)  (defun read-symbol-9-body (natoms maxlen)
114    (let* ((chars (concatenate 'string    (let* ((chars (concatenate 'string

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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