/[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.4 by pfdietz, Mon Feb 17 13:25:22 2003 UTC revision 1.5 by pfdietz, Sun Mar 2 14:25:07 2003 UTC
# Line 78  Line 78 
78  ;;; (deftest ctypecase.error.1  ;;; (deftest ctypecase.error.1
79  ;;;  (classify-error (ctypecase))  ;;;  (classify-error (ctypecase))
80  ;;;  program-error)  ;;;  program-error)
81    
82    
83    (deftest ctypecase.13
84      (ctypecase 'a
85                 (number 'bad)
86                 (#.(find-class 'symbol nil) 'good))
87      good)
88    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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