/[gcl]/gcl/ansi-tests/fboundp.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/fboundp.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26