/[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.14 by pfdietz, Fri May 6 01:13:41 2005 UTC revision 1.15 by pfdietz, Sat May 14 02:19:06 2005 UTC
# Line 87  Line 87 
87    t)    t)
88    
89  (deftest fboundp.error.10  (deftest fboundp.error.10
90    (check-type-error #'(lambda (x) (fboundp `(setf ,x)))    (loop for x in *mini-universe*
91                      #'symbolp)          unless (symbolp x)
92            nconc
93            (handler-case
94             (list x (fboundp `(setf ,x)))
95             (type-error (c)
96                         (assert (not (typep (type-error-datum c)
97                                             (type-error-expected-type c))))
98                         nil)
99             (error (c) (list (list x c)))))
100    nil)    nil)
101    

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

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