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* #
; #)).
