Parent Directory | Revision Log | Patch
revision 1.33 by pfdietz, Sat Mar 1 19:29:29 2003 UTC | revision 1.34 by pfdietz, Sat May 10 02:01:57 2003 UTC | |
---|---|---|
# | Line 420 | Line 420 |
420 | (c2 (find-class 'symbol))) | (c2 (find-class 'symbol))) |
421 | (notnot-mv (typep 'a `(or ,c2 ,c1)))) | (notnot-mv (typep 'a `(or ,c2 ,c1)))) |
422 | t) | t) |
423 | ||
424 | (deftest typep.18 | |
425 | (let ((i 0)) | |
426 | (values | |
427 | (notnot (typep (incf i) '(and (integer 0 10) (integer -5 6)))) | |
428 | i)) | |
429 | t 1) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |