/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)))  
   
     

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

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