/[gcl]/gcl/ansi-tests/copy-readtable.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/copy-readtable.lsp

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

revision 1.1 by pfdietz, Sat Jan 1 16:24:53 2005 UTC revision 1.2 by pfdietz, Tue Jan 4 15:18:31 2005 UTC
# Line 33  Line 33 
33      (notnot (eql rt rt2)))      (notnot (eql rt rt2)))
34    t)    t)
35    
36    ;;; NIL as a readtable designator indicating the standard readtable
37    (deftest copy-readtable.7
38      (let ((rt (copy-readtable nil)))
39        (values
40         (notnot rt)
41         (notnot (readtablep rt))
42         (not (eql rt *readtable*))))
43      t t t)
44    
45  ;;; Error tests  ;;; Error tests
46    
47  (deftest copy-readtable.error.1  (deftest copy-readtable.error.1

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