Parent Directory | Revision Log | Patch
revision 1.10 by pfdietz, Sat Jul 12 13:46:01 2003 UTC | revision 1.11 by pfdietz, Sat Aug 2 20:59:18 2003 UTC | |
---|---|---|
# | Line 38 | Line 38 |
38 | (let ((g (gensym))) (fboundp (list 'setf g))) | (let ((g (gensym))) (fboundp (list 'setf g))) |
39 | nil) | nil) |
40 | ||
41 | ;;; See 11.1.2.1.1 | |
42 | (deftest fboundp.8 | |
43 | (loop for x in *cl-non-function-macro-special-operator-symbols* | |
44 | when (fboundp x) | |
45 | collect x) | |
46 | nil) | |
47 | ||
48 | (deftest fboundp.order.1 | (deftest fboundp.order.1 |
49 | (let ((i 0)) | (let ((i 0)) |
50 | (values (notnot (fboundp (progn (incf i) 'car))) i)) | (values (notnot (fboundp (progn (incf i) 'car))) i)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |