Parent Directory | Revision Log | Patch
revision 1.7 by pfdietz, Sat Feb 15 05:11:11 2003 UTC | revision 1.8 by pfdietz, Sun Jun 22 03:10:53 2003 UTC | |
---|---|---|
# | Line 126 | Line 126 |
126 | ||
127 | (deftest delete-package.6 | (deftest delete-package.6 |
128 | (progn | (progn |
129 | (safely-delete-package "TEST-20)") | (safely-delete-package "TEST-20") |
130 | (handler-bind ((package-error | (handler-bind ((package-error |
131 | #'(lambda (c) | #'(lambda (c) |
132 | (let ((r (find-restart 'continue c))) | (let ((r (find-restart 'continue c))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |