Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Wed Jan 29 02:11:55 2003 UTC | revision 1.7 by pfdietz, Mon Feb 17 04:22:04 2003 UTC | |
---|---|---|
# | Line 39 | Line 39 |
39 | (let ((g (gensym))) (fboundp (list 'setf g))) | (let ((g (gensym))) (fboundp (list 'setf g))) |
40 | nil) | nil) |
41 | ||
42 | (deftest fboundp.order.1 | |
43 | (let ((i 0)) | |
44 | (values (notnot (fboundp (progn (incf i) 'car))) i)) | |
45 | t 1) | |
46 | ||
47 | (deftest fboundp.error.1 | (deftest fboundp.error.1 |
48 | (classify-error (fboundp 1)) | (classify-error (fboundp 1)) |
49 | type-error) | type-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |