Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Mon May 23 00:50:08 2005 UTC | revision 1.5 by pfdietz, Fri May 27 03:18:05 2005 UTC | |
---|---|---|
# | Line 168 | Line 168 |
168 | ||
169 | (deftest deftype.15 | (deftest deftype.15 |
170 | (let* ((sym (gensym)) | (let* ((sym (gensym)) |
171 | (a 1) | (form `(let ((a 1)) |
172 | (form `(deftype ,sym (&optional (x a)) | (deftype ,sym (&optional (x a)) |
173 | (declare (special a)) | (declare (special a)) |
174 | `(integer 0 ,x)))) | `(integer 0 ,x))))) |
175 | (values | (values |
176 | (eqlt (eval form) sym) | (eqlt (eval form) sym) |
177 | (let ((a 2)) | (let ((a 2)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |