/[gcl]/gcl/ansi-tests/cell-error-name.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cell-error-name.lsp

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

revision 1.1 by pfdietz, Wed Jan 29 00:42:25 2003 UTC revision 1.2 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 14  Line 14 
14  (deftest cell-error-name.2  (deftest cell-error-name.2
15    (handler-case    (handler-case
16     (eval '(my-undefined-function))     (eval '(my-undefined-function))
17       ;; (warning (c) (muffle-warning c))
18     (cell-error (c) (cell-error-name c)))     (cell-error (c) (cell-error-name c)))
19    my-undefined-function)    my-undefined-function)
20    
# Line 28  Line 29 
29  (deftest cell-error-name.5  (deftest cell-error-name.5
30    (cell-error-name (make-condition 'unbound-slot :name 's))    (cell-error-name (make-condition 'unbound-slot :name 's))
31    s)    s)
32    
33    (deftest cell-error-name.6
34      (let ((i 0))
35        (values
36         (cell-error-name (progn (incf i) (make-condition
37                                           'unbound-slot :name 's)))
38         i))
39      s 1)
40    
41        
42  ;;; Need test raising condition unbound-slot  ;;; Need test raising condition unbound-slot
43    

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