#351 initially not executed in loop
Linux ed101 2.6.12-10-686 #1 Mon Jun 12 22:10:03 UTC
2006 i686 GNU/Linux
GNU CLISP 2.38 (2006-01-24) (built 3347090101) (memory
3360659627)
Software: GNU C 3.3.5 (Debian 1:3.3.5-13)
gcc -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit
-Wreturn-type -Wmissing-declarations -Wno-sign-compare
-O2 -fexpensive-optimizations -DUNICODE
-DNO_TERMCAP_NCURSES -DDYNAMIC_FFI -I. -x none
libcharset.a libavcall.a libcallback.a -ldl
-L/home/users/s/sd/sds/top/Linux-i686/lib -lsigsegv -lc
SAFETY=0 HEAPCODES LINUX_NOEXEC_HEAPCODES
GENERATIONAL_GC SPVW_BLOCKS SPVW_MIXED TRIVIALMAP_MEMORY
libsigsegv 2.2
Features:
(REGEXP SYSCALLS I18N LOOP COMPILER CLOS MOP CLISP
ANSI-CL COMMON-LISP LISP=CL INTERPRETER SOCKETS
GENERIC-STREAMS LOGICAL-PATHNAMES FFI GETTEXT UNICODE
BASE-CHAR=CHARACTER
PC386 UNIX)
C Modules: (clisp i18n syscalls regexp)
Installation directory: ./
User language: ENGLISH
Machine: I686 (I686) localhost.localdomain [127.0.0.1]
Please see the two loop's, the latter one has 1 line
removed and then it correctly outputs "ab" as expected.
Hope this helps.
JS> (with-output-to-string (escaped)
(loop
initially (write-char
#\a escaped)
for char across ""
for code = (char-code char)
do
(progn)
finally (write-char #\b
escaped)))
"b"
JS> (with-output-to-string (escaped)
(loop
initially (write-char
#\a escaped)
for char across ""
do
(progn)
finally (write-char #\b
escaped)))
"ab"
JS>
Logged In: YES
user_id=5735
thank you for your bug report.
the bug has been fixed in the CVS tree.
you can either wait for the next release (recommended)
or check out the current CVS tree (see http://clisp.cons.org\)
and build CLISP from the sources (be advised that between
releases the CVS tree is very unstable and may not even build
on your platform).