Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

#351 initially not executed in loop

closed-fixed
Sam Steingold
clisp (525)
5
2006-07-20
2006-07-04
Attila Lendvai
No

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>

Discussion

  • Sam Steingold
    Sam Steingold
    2006-07-20

    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).

     
  • Sam Steingold
    Sam Steingold
    2006-07-20

    • assigned_to: haible --> sds
    • status: open --> closed-fixed