/[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.1 by pfdietz, Sat Oct 19 04:11:29 2002 UTC revision 1.2 by pfdietz, Sat Nov 2 03:55:07 2002 UTC
# Line 11  Line 11 
11    a)    a)
12    
13  (deftest ctypecase.2  (deftest ctypecase.2
14    (let ((x 1))    (classify-error
15      (classify-error (ctypecase x (symbol 'a))))     (let ((x 1))
16         (ctypecase x (symbol 'a))))
17    type-error)    type-error)
18    
19  (deftest ctypecase.3  (deftest ctypecase.3

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

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