Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Fri Sep 5 12:26:07 2003 UTC | revision 1.2 by pfdietz, Sat Sep 6 23:31:41 2003 UTC | |
---|---|---|
# | Line 109 | Line 109 |
109 | t) | t) |
110 | ||
111 | (deftest signum.11 | (deftest signum.11 |
112 | (let ((i 0)) (values (signum (incf i)) i)) | (let ((i 0)) (values (signum (the (integer 1 1) (incf i))) i)) |
113 | 1 1) | 1 1) |
114 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |