Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |