Parent Directory | Revision Log | Patch
revision 1.47 by pfdietz, Sat Feb 22 01:15:59 2003 UTC | revision 1.48 by pfdietz, Sat Feb 22 01:37:02 2003 UTC | |
---|---|---|
# | Line 1391 the condition to go uncaught if it canno | Line 1391 the condition to go uncaught if it canno |
1391 | ||
1392 | (defun with-package-iterator-all (packages) | (defun with-package-iterator-all (packages) |
1393 | (test-with-package-iterator packages :internal :external :inherited)) | (test-with-package-iterator packages :internal :external :inherited)) |
#-allegro (deftype otherwise () nil) ;; used in testing TYPECASE | ||
#+allegro | ||
(eval-when (load compile) | ||
(handler-bind | ||
((error #'(lambda (c) (continue)))) | ||
(deftype otherwise () nil))) | ||
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |