#351 initially not executed in loop

closed-fixed
clisp (525)
5
2006-07-20
2006-07-04
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
     

Log in to post a comment.

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks