[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Gcl-devel] DO-SYMBOLS and DO-ALL-SYMBOLS don't have implicit tagbod
From: |
Camm Maguire |
Subject: |
Re: [Gcl-devel] DO-SYMBOLS and DO-ALL-SYMBOLS don't have implicit tagbodies |
Date: |
18 Oct 2002 18:08:51 -0400 |
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
Re: [Gcl-devel] DO-SYMBOLS and DO-ALL-SYMBOLS don't have implicit tagbodies,
Camm Maguire <=