[iterate-devel] Iterate broken on ACL 7.0 beta?

[Arthur Lemmens]

Hi,

I just downloaded iterate 1.0.9 from common-lisp.net and tried
it with ACL 7.0 beta.

Unfortunately, I get a stack overflow error (see the backtrace below)
when I do the following:

 1. compile (and load) package.lisp and iterate.lisp
 2. evaluate
    (in-package iterate)
 3. try out the example from the readme
    (iterate (generate i from 0 to 6)
             (for (key . value) in '((a . 2) (zero . 10) (one . 20) (d . 5)))
             (when (>= value 10)
               (collect (cons key (next i)))))

This is not critical for me (I'll just use an older version of
iterate that I've been using for the last 4 years and that has
no problems with your example or with my programs in general),
but I thought you might want to know this.

Sorry that I don't come with a fix, but I don't have the time for
debugging this right now.

Regards,

Arthur

---------

Stack overflow (signal 1000)
   [Condition of type EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL]

Restarts:
  0: [CONTINUE] continue computation
  1: [ABORT] Abort handling SLIME request.
  2: [ABORT] Abort entirely from this (lisp) process.

Backtrace:
  0: (SWANK::DEBUG-IN-EMACS #<EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL @ #x20888ea2>)
  1: ((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))
  2: (SWANK:SWANK-DEBUGGER-HOOK #<EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL @ #x20888ea2> #<Function SWANK-DEBUGGER-HOOK>)
  3: (CERROR "continue computation" EXCL:SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL :FORMAT-CONTROL "Stack overflow (signal 1000)" :FORMAT-ARGUMENTS NIL)
  4: (SPECIAL-OPERATOR-P :UNKNOWN)
  5: (SYSTEM:FUNCTION-INFORMATION COND NIL)
  6: (MACROEXPAND-1 (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)
  7: (MACROEXPAND (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)
  8: (WALK (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)
  9: (WALK (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)
  10: (WALK (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)
  11: (WALK (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)
  12: (WALK (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)
  13: (WALK (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)
  14: (WALK (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)
  15: (WALK (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)
  16: (WALK (COND ((>= VALUE 10) NIL (COLLECT (CONS KEY (NEXT I))))) NIL)