[Iterate-devel] iterate-1.4.3 doesn't compile under SBCL-1.2.8

[Helmut Jarausch]

Hi,

please bear in mind that I'm Lisp newbee.
When I try to load iterate (1.4.3) I get the  warnings and one error below.

Many thanks for a hint,
Helmut


; in: DEFMACRO WITH-TEMPORARY
;     `(LET ((,ITERATE::OLD-VAR ITERATE::*TEMPS-IN-USE*))
;        (UNWIND-PROTECT
;            (LET ,(MAPCAR #'(LAMBDA # `#) ITERATE::VARS)
;              . ,ITERATE::BODY)
;          (SETQ ITERATE::*TEMPS-IN-USE* ,ITERATE::OLD-VAR)))
; --> SB-IMPL::|List| SB-IMPL::|List| SB-IMPL::|List*| MAPCAR LET LET 
; --> SB-INT:DO-ANONYMOUS BLOCK LET TAGBODY TAGBODY SB-KERNEL:%RPLACD 
; --> SETQ THE LIST CONS 
; ==>
;   (SB-C::%FUNCALL #:G2 (CAR #:G1))
; 
; caught WARNING:
;   function called with one argument, but wants exactly zero
;   See also:
;     The ANSI Standard, Section 3.2.2.3

; file: /home/jarausch/Lisp_My/TEST/iterate.lisp
; in: DEFMACRO WITH-TEMPORARY
;     `(LET ((,ITERATE::OLD-VAR ITERATE::*TEMPS-IN-USE*))
;        (UNWIND-PROTECT
;            (LET ,(MAPCAR #'(LAMBDA # `#) ITERATE::VARS)
;              . ,ITERATE::BODY)
;          (SETQ ITERATE::*TEMPS-IN-USE* ,ITERATE::OLD-VAR)))
; --> SB-IMPL::|List| SB-IMPL::|List| SB-IMPL::|List*| MAPCAR LET 
; --> SB-KERNEL:%COERCE-CALLABLE-TO-FUN FUNCTION SB-INT:QUASIQUOTE 
; ==>
;   (SB-IMPL::|List*| ITERATE::!1 '((ITERATE::GET-FREE-TEMP)))
; 
; caught WARNING:
;   undefined variable: !1
; 

The following errors occurs in several functions

; in: DEFUN RETURN-COLLECTION-CODE
;     (ITERATE::WITH-TEMPORARY ITERATE::TEMP-VAR
;       (LET* ((ITERATE::UPDATE-CODE
;               `(IF ,ITERATE::COLLECT-VAR
;                    #
;                    #))
;              (ITERATE::MAIN-CODE (COND # # #)))
;         (ITERATE::RETURN-CODE :BODY
;                               `((PROGN
;                                  ,.ITERATE::MAIN-CODE
;                                  ,ITERATE::COLLECT-VAR))
;                               :FINAL
;                               (IF (EQ ITERATE::RESULT-TYPE 'LIST)
;                                   NIL
;                                   `(#)))))
; 
; caught ERROR:
;   during macroexpansion of
;   (WITH-TEMPORARY TEMP-VAR
;     (LET* #
;       #)).