/[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.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)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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