/[gcl]/gcl/ansi-tests/packages-08.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/packages-08.lsp

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

revision 1.3 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.4 by pfdietz, Thu Oct 24 03:39:39 2002 UTC
# Line 82  Line 82 
82        ;; Delete the P2 package, catching the continuable        ;; Delete the P2 package, catching the continuable
83        ;; error and deleting the package        ;; error and deleting the package
84                
85        (catch 'continue-failed        (handler-bind ((package-error
86            (let ((*debugger-hook* #'catch-continue-debugger-hook)                        #'(lambda (c)
87                  (*catch-error-type* 'package-error))                            (let ((r (find-restart 'continue c)))
88              (declare (special *debugger-hook* *catch-error-type*))                              (and r (invoke-restart r))))))
89              (delete-package P2)))                      (delete-package P2))
90    
91        (unless (and (equal (package-name P1) "P1")        (unless (and (equal (package-name P1) "P1")
92                     (null  (package-name P2))                     (null  (package-name P2))
# Line 131  Line 131 
131  ;;;   some sort of interaction with the test harness.  ;;;   some sort of interaction with the test harness.
132    
133  (deftest delete-package-6  (deftest delete-package-6
134      (progn    (progn
135        (when (find-package "TEST-20") (delete-package "TEST-20"))      (when (find-package "TEST-20") (delete-package "TEST-20"))
136        (catch 'continue-failed      (handler-bind ((package-error
137          (let ((*debugger-hook* #'catch-continue-debugger-hook)                      #'(lambda (c)
138                (*catch-error-type* 'package-error))                          (let ((r (find-restart 'continue c)))
139            (declare (special *debugger-hook* *catch-error-type*))                            (and r (invoke-restart r))))))
140            (and (not (delete-package "TEST-20"))                    (and (not (delete-package "TEST-20"))
141                 t))))                         t)))
142    t)    t)
143    

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

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