This is the mail archive of the
kawa@sourceware.org
mailing list for the Kawa project.
Re: GSOC | Extending Common Lisp support
On Jun 20, 2012, at 11:44 AM, Charles Turner wrote:
#|kawa:1|# (do ((temp-one 1 (+ 1 temp-one))
(temp-two 0 (- temp-two 1)))
((> (- temp-one temp-two) 5) temp-one))
/dev/stdin:1:1: warning - no declaration seen for %do-lambda1
[ ... bunch of undefined variable errors ...]
Looks like this is the modern behavior of Savannah bug #13574 (which
turns 7 in a few days). As Per noted, changing Lisp2#getNamespaceOf
to return FUNCTION_NAMESPACE for Declarations with the IS_SYNTAX flag
resolves the "no declaration" issue. That change is probably enough
to close the bug, although the output of
(do ((i 2 (+ i 1))) ((> i 5) 'done) (format #t "~A ~A~%" i (* i i)))
is still wrong from CL due to the language-specific false object
equality check.
--
Jamison Hope
The PTR Group
www.theptrgroup.com