Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Jan 13 14:11:49 2003 UTC | revision 1.3 by pfdietz, Fri Jan 24 04:22:54 2003 UTC | |
---|---|---|
# | Line 10 | Line 10 |
10 | ;;; is true. | ;;; is true. |
11 | ||
12 | (deftest eql.1 | (deftest eql.1 |
13 | (loop for x in *universe* always (eql x x)) | (loop for x in *universe* always (check-values (eql x x))) |
14 | t) | t) |
15 | ||
16 | (deftest eql.2 | (deftest eql.2 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |