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

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

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

revision 1.2 by pfdietz, Sat Nov 2 03:55:07 2002 UTC revision 1.3 by pfdietz, Mon Feb 17 11:54:01 2003 UTC
# Line 64  Line 64 
64      (ctypecase x (integer) (t 'a)))      (ctypecase x (integer) (t 'a)))
65    nil)    nil)
66    
67    (deftest ctypecase.12
68      (let ((x 1))
69        (values
70             (handler-bind
71          ((type-error #'(lambda (c) (store-value 'a c))))
72          (ctypecase x
73           (symbol :good)
74           (float :bad)))
75         x))
76      :good a)
77    
78    (deftest ctypecase.error.1
79      (classify-error (ctypecase))
80      program-error)

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

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