Re: [Gcl-devel] DO-SYMBOLS and DO-ALL-SYMBOLS don't have implicit tagbodies

[Camm Maguire]

Greetings!

I thought I committed a fix to that a day or two ago?  It only cleared
one test for me, do-symbols.8.

Index: packlib.lsp
===================================================================
RCS file: /cvsroot/gcl/gcl/lsp/packlib.lsp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- packlib.lsp 15 Oct 2002 14:51:51 -0000      1.2
+++ packlib.lsp 17 Oct 2002 20:57:53 -0000      1.3
@@ -78,7 +78,7 @@
                         (if (or (eq ,q ,p) 
                                 (eq :inherited (car (last (multiple-value-list 
                                                            (find-symbol 
(symbol-name ,var) ,p))))))
-                            (progn ,@body))
+                            (tagbody ,@body))
                         (setq ,l (cdr ,l))
                         (go ,loop)
                         ,break))))))
@@ -106,7 +106,7 @@
 (defmacro do-all-symbols((var &optional (result-form nil)) . body)
   `(dolist (.v (list-all-packages) ,result-form)
           (do-symbols (,var .v)
-                      ,@ body)))
+                      (tagbody ,@ body))))
           
 
 (defun substringp (sub str)


Take care,

"Paul F. Dietz" <address@hidden> writes:

> According to the ANSI CL spec, the bodies of the DO-*SYMBOLS forms
> are implicit tagbodies.  DO-EXTERNAL-SYMBOLS is, but DO-SYMBOLS and
> DO-ALL-SYMBOLS currently are not.  This is causing some of the
> ansi-tests to fail.
> 
>       Paul
> 
> 
> 
> _______________________________________________
> Gcl-devel mailing list
> address@hidden
> http://mail.gnu.org/mailman/listinfo/gcl-devel
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah