/[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.13 by pfdietz, Sat Jan 17 13:31:44 2004 UTC revision 1.14 by pfdietz, Fri May 6 01:13:41 2005 UTC
# Line 51  Line 51 
51    t 1)    t 1)
52    
53  (deftest fboundp.error.1  (deftest fboundp.error.1
54    (signals-error (fboundp 1) type-error)    (check-type-error #'fboundp #'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null))))))
55    t)    nil)
56    
57  (deftest fboundp.error.2  (deftest fboundp.error.2
58    (signals-error (fboundp #\a) type-error)    (signals-type-error x '(x) (fboundp x))
59    t)    t)
60    
61  (deftest fboundp.error.3  (deftest fboundp.error.3
62    (signals-error (fboundp '(foo)) type-error)    (signals-type-error x '(setf) (fboundp x))
63    t)    t)
64    
65  (deftest fboundp.error.4  (deftest fboundp.error.4
66    (signals-error (fboundp) program-error)    (signals-type-error x '(setf foo . bar) (fboundp x))
67    t)    t)
68    
69  (deftest fboundp.error.5  (deftest fboundp.error.5
70    (signals-error (fboundp 'cons nil) program-error)    (signals-type-error x '(setf foo bar) (fboundp x))
71    t)    t)
72    
73  (deftest fboundp.error.6  (deftest fboundp.error.6
74      (signals-error (fboundp) program-error)
75      t)
76    
77    (deftest fboundp.error.7
78      (signals-error (fboundp 'cons nil) program-error)
79      t)
80    
81    (deftest fboundp.error.8
82    (signals-error (locally (fboundp 1) t) type-error)    (signals-error (locally (fboundp 1) t) type-error)
83    t)    t)
84    
85    (deftest fboundp.error.9
86      (signals-type-error x '(setf . foo) (fboundp x))
87      t)
88    
89    (deftest fboundp.error.10
90      (check-type-error #'(lambda (x) (fboundp `(setf ,x)))
91                        #'symbolp)
92      nil)

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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