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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by pfdietz, Fri May 6 01:13:41 2005 UTC revision 1.7 by pfdietz, Sat May 14 02:19:06 2005 UTC
# Line 40  Line 40 
40    nil)    nil)
41    
42  (deftest fdefinition.error.8  (deftest fdefinition.error.8
43    (check-type-error #'(lambda (x) (fdefinition `(setf ,x))) #'symbolp)    (loop for x in *mini-universe*
44            unless (symbolp x)
45            nconc
46            (handler-case
47             (list x (fdefinition `(setf ,x)))
48             (type-error (c)
49                         (assert (not (typep (type-error-datum c)
50                                             (type-error-expected-type c))))
51                         nil)
52             (error (c) (list (list x c)))))
53    nil)    nil)
54    
55  ;;; Non-error cases  ;;; Non-error cases

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