/[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.3 by pfdietz, Fri Nov 15 12:34:40 2002 UTC revision 1.4 by pfdietz, Mon Jan 13 14:11:49 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.8  (deftest fboundp.error.1
43    (classify-error (fboundp 1))    (classify-error (fboundp 1))
44    type-error)    type-error)
45    
46  (deftest fboundp.9  (deftest fboundp.error.2
47    (classify-error (fboundp #\a))    (classify-error (fboundp #\a))
48    type-error)    type-error)
49    
50  (deftest fboundp.10  (deftest fboundp.error.3
51    (classify-error (fboundp '(foo)))    (classify-error (fboundp '(foo)))
52    type-error)    type-error)
53    
54    (deftest fboundp.error.4
55      (classify-error (fboundp))
56      program-error)
57    
58    (deftest fboundp.error.5
59        (classify-error (fboundp 'cons nil))
60      program-error)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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