;;; Loading "/home/ecl/tmp/ubuntu64/lib/ecl-11.1.1/rt.asd" ;;; Loading "/home/ecl/tmp/ubuntu64/lib/ecl-11.1.1/rt.fas" ;;; ;;; Compiling /home/ecl/tmp/ubuntu64/lisp/quicklisp/dists/quicklisp/software/iterate-20111001-darcs/iterate-test.lisp. ;;; OPTIMIZE levels: Safety=2, Space=0, Speed=3, Debug=0 ;;; ;;; Compiling (DEFUN ECL-BUILD-OKECL-TEST-OK;;; Compiling (DEFPARAMETER *AN-ALIST* ...). ;;; Compiling (DEFPARAMETER *LIST-OF-LISTS* ...). ;;; Compiling (DEFUN LONGEST-LIST ...). ;;; Compiling (DEFMACRO SUM-OF-SQUARES ...). ;;; Compiling (DEFMACRO-CLAUSE (FOR VAR ...) ...). ;;; Compiling (DEFMACRO-DRIVER (FOR VAR ...) ...). ;;; Compiling (DEFCLASS POLAR ...). ;;; Compiling (DEFMACRO PROBLEM-BECAUSE-I-RETURN-NIL ...). ;;; Warning: ;;; in file iterate-test.lisp, position 47152 ;;; at (FSET 'PROBLEM-BECAUSE-I-RETURN-NIL ...) ;;; ! The variable #:G78 is not used. ;;; End of Pass 1. ;;; Emitting code for SETUP-HASH-TABLE. ;;; Emitting code for LONGEST-LIST. ;;; Emitting code for SUM-OF-SQUARES. ;;; Emitting code for CLAUSE-FOR-IN-WHOLE-VECTOR.CLAUSE-2. ;;; Emitting code for CLAUSE-FOR-IN-WHOLE-VECTOR-5. ;;; Emitting code for PROBLEM-BECAUSE-I-RETURN-NIL. ;;; Finished compiling /home/ecl/tmp/ubuntu64/lisp/quicklisp/dists/quicklisp/software/iterate-20111001-darcs/iterate-test.lisp. ;;; ;;; Warning: COMPILE-FILE warned while performing # on #. ;;; Loading "/home/ecl/tmp/ubuntu64/.cache/common-lisp/ecl-11.1.1-606449eb-linux-x64/home/ecl/tmp/ubuntu64/lisp/quicklisp/dists/quicklisp/software/iterate-20111001-darcs/iterate-test.fas" Doing 261 pending tests of 261 tests total. ITERATE.TEST::DSETQ.1 ITERATE.TEST::DSETQ.2 ITERATE.TEST::DSETQ.3 ITERATE.TEST::DSETQ.DESTRUCTURING.1 ITERATE.TEST::DSETQ.DESTRUCTURING.2 ITERATE.TEST::DSETQ.VALUES.1 ITERATE.TEST::DSETQ.VALUES.2 ITERATE.TEST::DSETQ.VALUES.3 ITERATE.TEST::DSETQ.VALUES.4 ITERATE.TEST::REPEAT.1 ITERATE.TEST::REPEAT.2 ITERATE.TEST::REPEAT.3 ITERATE.TEST::LOCALLY.1 ITERATE.TEST::LOCALLY.2 ITERATE.TEST::ALWAYS.1 ITERATE.TEST::ALWAYS.2 ITERATE.TEST::ALWAYS.3 ITERATE.TEST::ALWAYS.NEVER.1 ITERATE.TEST::ALWAYS.NEVER.2"hi" ITERATE.TEST::THEREIS.FINALLY.1 ITERATE.TEST::THEREIS.FINALLY.2 ITERATE.TEST::THEREIS.FINALLY.3"hi" ITERATE.TEST::THEREIS.FINALLY-PROTECTED.1 ITERATE.TEST::THEREIS.FINALLY-PROTECTED.2 ITERATE.TEST::FINDING.SUCH-THAT.2 ITERATE.TEST::FINDING.SUCH-THAT.NEST.1 ITERATE.TEST::FINDING.SUCH-THAT.NEST.2 ITERATE.TEST::FINDING.THEREIS.1 ITERATE.TEST::FINDING.THEREIS.2 ITERATE.TEST::FINDING.THEREIS.3 ITERATE.TEST::FINDING.ALWAYS.1 ITERATE.TEST::FINDING.ALWAYS.2 ITERATE.TEST::FINDING.ALWAYS.3 ITERATE.TEST::IN-HASHTABLE.KEYS ITERATE.TEST::IN-HASHTABLE.ITEMS.1 ITERATE.TEST::IN-HASHTABLE.ITEMS.2 ITERATE.TEST::IN-HASHTABLE.1 ITERATE.TEST::IN-HASHTABLE.DESTRUCTURING.1 ITERATE.TEST::IN-PACKAGE.INTERNALS ITERATE.TEST::IN-PACKAGE.EXTERNALS.1 ITERATE.TEST::IN-PACKAGE.EXTERNALS.2 ITERATE.TEST::IN-PACKAGE.GENERATOR ITERATE.TEST::IN-PACKAGES.EXTERNAL ITERATE.TEST::IN-PACKAGES.GENERATOR-ACCESS ITERATE.TEST::IN-STREAM.1 ITERATE.TEST::IN-STREAM.PREVIOUS ITERATE.TEST::IN-STREAM.2 ITERATE.TEST::IN-STREAM.3 ITERATE.TEST::IN-STREAM.REDUCING ITERATE.TEST::IN-STREAM.ACCUMULATING ITERATE.TEST::IN-STREAM.GENERATE ITERATE.TEST::REDUCING.0 ITERATE.TEST::UNTIL.1 ITERATE.TEST::UNTIL.2 ITERATE.TEST::WHILE.1 ITERATE.TEST::ELSE.1 ITERATE.TEST::ELSE.2 ITERATE.TEST::COLLECT.1 ITERATE.TEST::GENERATE.1 ITERATE.TEST::FIND-LONGEST-LIST.1 ITERATE.TEST::FIND-LONGEST-LIST.2 ITERATE.TEST::FIND-LONGEST-LIST.3 ITERATE.TEST::FIND-LONGEST-LIST.4 ITERATE.TEST::MAXIMIZE.1 ITERATE.TEST::MAXIMIZE.2 ITERATE.TEST::FINDING.MINIMIZING.1 ITERATE.TEST::MINIMIZE.1 ITERATE.TEST::MINIMIZE.2 ITERATE.TEST::SUBBLOCKS.MAXIMIZE.1 ITERATE.TEST::SUBBLOCKS.MINIMIZE.1 ITERATE.TEST::MAXIMIZE.3 ITERATE.TEST::MINIMIZE.3 ITERATE.TEST::MAXIMIZE.MULTIPLE ITERATE.TEST::MINIMIZE.MULTIPLE ITERATE.TEST::ACCUMULATE.1 ITERATE.TEST::ACCUMULATE.2 ITERATE.TEST::ACCUMULATE.3 ITERATE.TEST::ACCUMULATE.4 ITERATE.TEST::ACCUMULATE.5 ITERATE.TEST::ACCUMULATE.6 ITERATE.TEST::IN-STRING.DOWNTO.1 ITERATE.TEST::IN-SEQUENCE.DOWNTO.1 ITERATE.TEST::REDUCING.1 ITERATE.TEST::REDUCING.2 ITERATE.TEST::REDUCING.3 ITERATE.TEST::REDUCING.4 ITERATE.TEST::REDUCING.5 ITERATE.TEST::REDUCING.6 ITERATE.TEST::GENERATE.DESTRUCTURING.1 ITERATE.TEST::GENERATING.DESTRUCTURING.1 ITERATE.TEST::FOR.GENERATE-T.DESTRUCTURING.1 ITERATE.TEST::GENERATE.NEXT.1 ITERATE.TEST::GENERATE.PREVIOUS.1 ITERATE.TEST::GENERATE.NEXT.2 ITERATE.TEST::IF.1 ITERATE.TEST::IF.2 ITERATE.TEST::OR.1 ITERATE.TEST::OR.2 ITERATE.TEST::SETF.1 ITERATE.TEST::SETF.2 ITERATE.TEST::SETF.3 ITERATE.TEST::SETF.4 ITERATE.TEST::AFTER-EACH.1 ITERATE.TEST::AFTER-EACH.2 ITERATE.TEST::AFTER-EACH.3 ITERATE.TEST::NEXT-ITERATION.1 ITERATE.TEST::NEXT-ITERATION.2 ITERATE.TEST::COLLECT.2 ITERATE.TEST::FOR-IN.2 ITERATE.TEST::FOR.DESTRUCTURING.1 ITERATE.TEST::REPEAT.0 ITERATE.TEST::FOR.NEXT.1 ITERATE.TEST::FOR.DO-NEXT.1 ITERATE.TEST::FOR.DO-NEXT.2 ITERATE.TEST::FOR.DO-NEXT.3 ITERATE.TEST::FOR.NEXT.WALK ITERATE.TEST::FOR.DO-NEXT.WALK ITERATE.TEST::FOR.NEXT.PREVIOUS ITERATE.TEST::FOR.DO-NEXT.PREVIOUS ITERATE.TEST::FOR-NONGENERATOR.1 ITERATE.TEST::FOR.PREVIOUS.IN ITERATE.TEST::FOR.PREVIOUS.TYPE.1 ITERATE.TEST::FOR.PREVIOUS.INDEX-OF-STRING.1 ITERATE.TEST::FOR.PREVIOUS.IN-STRING.WITH-INDEX ITERATE.TEST::FOR.PREVIOUS.INDEX-OF-VECTOR ITERATE.TEST::FOR.PREVIOUS.IN-VECTOR.WITH-INDEX ITERATE.TEST::FOR.FIRST.1 ITERATE.TEST::FOR.INITIALLY.1 ITERATE.TEST::SUM.1 ITERATE.TEST::COLLECT.3 ITERATE.TEST::COLLECT.4 ITERATE.TEST::COLLECT.5 ITERATE.TEST::COLLECT.6 ITERATE.TEST::COLLECT-BY.1 ITERATE.TEST::IN-VECTOR.BY.1 ITERATE.TEST::INDEX-OF-VECTOR.BY.1 ITERATE.TEST::IN-VECTOR.DOWNTO.1 ITERATE.TEST::INDEX-OF-VECTOR.DOWNTO.1 ITERATE.TEST::IN-VECTOR.DOWNTO.2 ITERATE.TEST::INDEX-OF-VECTOR.DOWNTO.2 ITERATE.TEST::GENERATE.IN-VECTOR.DOWNTO.1 ITERATE.TEST::GENERATE.INDEX-OF-VECTOR.DOWNTO.1 ITERATE.TEST::IF-FIRST-TIME.1 ITERATE.TEST::IF-FIRST-TIME.2 ITERATE.TEST::IF-FIRST-TIME.3 ITERATE.TEST::FIRST-TIME-P.0 ITERATE.TEST::FIRST-TIME-P.1 ITERATE.TEST::FIRST-ITERATION-P.1 ITERATE.TEST::COLLECT.MULTIPLE.1 ITERATE.TEST::COLLECT.TYPE.STRING.1 ITERATE.TEST::COLLECT.TYPE.STRING.2 ITERATE.TEST::COLLECT.TYPE.STRING.3 ITERATE.TEST::COLLECT.TYPE.VECTOR.1 ITERATE.TEST::COLLECT.TYPE.VECTOR.2 ITERATE.TEST::ADJOIN.1 ITERATE.TEST::ADJOIN.2 ITERATE.TEST::ADJOIN.3 ITERATE.TEST::ADJOIN.4 ITERATE.TEST::ADJOIN.5 ITERATE.TEST::ADJOIN.6 ITERATE.TEST::APPEND.1 ITERATE.TEST::NCONC.1 ITERATE.TEST::APPEND.2 ITERATE.TEST::NCONC.2 ITERATE.TEST::APPEND.3 ITERATE.TEST::NCONC.3 ITERATE.TEST::APPEND.4 ITERATE.TEST::NCONC.4 ITERATE.TEST::APPEND.5 ITERATE.TEST::APPEND.6 ITERATE.TEST::NCONC.5 ITERATE.TEST::UNION.1 ITERATE.TEST::UNION.2 ITERATE.TEST::UNION.3 ITERATE.TEST::NUNION.3 ITERATE.TEST::VALUE.MINIMIZE ITERATE.TEST::VALUE.MAXIMIZE ITERATE.TEST::VALUE.FINDING-MAXIMIZING.1 ITERATE.TEST::VALUE.FINDING-MAXIMIZING.2 ITERATE.TEST::WALK.COUNTING ITERATE.TEST::VALUE.COUNTING ITERATE.TEST::VALUE.ADJOINING ITERATE.TEST::VALUE.COLLECTING ITERATE.TEST::VALUE.ACCUMULATE ITERATE.TEST::VALUE.ALWAYS ITERATE.TEST::DOTTED.1 ITERATE.TEST::DOTTED.2 ITERATE.TEST::DOTTED.3 ITERATE.TEST::DOTTED.4 ITERATE.TEST::DOTTED.5 ITERATE.TEST::WALK.MULTIPLE-VALUE-BIND ITERATE.TEST::SUBBLOCKS.1 ITERATE.TEST::SUBBLOCKS.WRONG.1 ITERATE.TEST::SUBBLOCKS.2 ITERATE.TEST::DESTRUCTURING.1 ITERATE:LEAVE LAMBDA ITERATE.TEST::TYPE.1 ITERATE.TEST::TYPE.2 ITERATE.TEST::TYPE.3 ITERATE.TEST::TYPE.4 ITERATE.TEST::TYPE.5 ITERATE.TEST::TYPE.6 ITERATE.TEST::TYPE.7 ITERATE.TEST::STATIC.ERROR.1 ITERATE.TEST::CODE-MOVEMENT.1 ITERATE.TEST::CODE-MOVEMENT.2 ITERATE.TEST::CODE-MOVEMENT.3 Test ITERATE.TEST::CODE-MOVEMENT.ELSE failed Form: (HANDLER-CASE (MACROEXPAND '(ITERATE:ITER (ITERATE:FOR ITERATE.TEST::I ITERATE.TEST::FROM 1 ITERATE.TEST::TO 10) (LET ((ITERATE.TEST::X 3)) (ITERATE:ELSE (RETURN ITERATE.TEST::X))))) (ERROR NIL T) (:NO-ERROR (ITERATE.TEST::F ITERATE.TEST::X) (DECLARE (IGNORE ITERATE.TEST::F ITERATE.TEST::X)) NIL)) Expected value: T Actual value: NIL. ITERATE.TEST::CODE-MOVEMENT.AFTER-EACH ITERATE.TEST::CODE-MOVEMENT.DECLARE.1 ITERATE.TEST::CODE-MOVEMENT.DECLARE.2 ITERATE.TEST::CODE-MOVEMENT.LOCALLY.1 ITERATE.TEST::CODE-MOVEMENT.LOCALLY.2 ITERATE.TEST::CODE-MOVEMENT.INITIALLY Test ITERATE.TEST::CODE-MOVEMENT.FINALLY failed Form: (HANDLER-CASE (MACROEXPAND '(ITERATE:ITER (ITERATE:FOR ITERATE.TEST::I ITERATE.TEST::FROM 1 ITERATE.TEST::TO 10) (LET ((ITERATE.TEST::Y ITERATE.TEST::I)) (ITERATE:FINALLY (RETURN ITERATE.TEST::Y))))) (ERROR NIL T) (:NO-ERROR (ITERATE.TEST::F ITERATE.TEST::X) (DECLARE (IGNORE ITERATE.TEST::F ITERATE.TEST::X)) NIL)) Expected value: T Actual value: NIL. Test ITERATE.TEST::CODE-MOVEMENT.FINALLY-PROTECTED failed Form: (HANDLER-CASE (MACROEXPAND '(ITERATE:ITER (ITERATE:FOR ITERATE.TEST::I ITERATE.TEST::FROM 1 ITERATE.TEST::TO 10) (LET ((ITERATE.TEST::Y ITERATE.TEST::I)) (ITERATE:FINALLY-PROTECTED (RETURN ITERATE.TEST::Y))))) (ERROR NIL T) (:NO-ERROR (ITERATE.TEST::F ITERATE.TEST::X) (DECLARE (IGNORE ITERATE.TEST::F ITERATE.TEST::X)) NIL)) Expected value: T Actual value: NIL. ITERATE.TEST::STATIC.CONFLICT.1 ITERATE.TEST::MACRO.SHADOW.CLAUSE ITERATE.TEST::MULTIPLY.1 ITERATE.TEST::SUM-OF-SQUARES.1 ITERATE.TEST::DEFMACRO-CLAUSE.1 ITERATE.TEST::MULTIPLY.CLAUSE ITERATE.TEST::REMOVE-CLAUSE.1 ITERATE.TEST::REMOVE-CLAUSE.2 ITERATE.TEST::IN-WHOLE-VECTOR.CLAUSE ITERATE.TEST::IN-VECTOR.FILL-POINTER ITERATE.TEST::IN-WHOLE-VECTOR.DRIVER ITERATE.TEST::IN-WHOLE-VECTOR.GENERATE ITERATE:DEFCLAUSE-SEQUENCE ITERATE.TEST::IN-WHOLE-VECTOR.SEQ ITERATE.TEST::IN-WHOLE-VECTOR.SEQ.INDEX ITERATE.TEST::IN-WHOLE-VECTOR.SEQ.WITH-INDEX ITERATE.TEST::IN-WHOLE-VECTOR.SEQ.GENERATE ITERATE.TEST::DEFMACRO-CLAUSE.2 ITERATE.TEST::MAXING.1 ITERATE.TEST::MAXING.2 ITERATE.TEST::MAXING.3 ITERATE.TEST::DISPLAY.1 ITERATE.TEST::DISPLAY.2 ITERATE.TEST::MULTIPLE-VALUE-PROG1.1 ITERATE.TEST::IGNORE-ERRORS.1 ITERATE.TEST::IGNORE-ERRORS.2 ITERATE.TEST::HANDLER-BIND.1 ITERATE.TEST::DESTRUCTURING-BIND.1 ITERATE.TEST::DESTRUCTURING-BIND.2 SYMBOL-MACROLET WITH-SLOTS WITH-ACCESSORS ITERATE.TEST::BUG/WALK.1 Test ITERATE.TEST::BUG/WALK.2 failed Form: (ITERATE:ITER (RETURN (IF (ODDP 1) (PROGN) 'ITERATE.TEST::EVEN))) Expected value: NIL Actual value: ITERATE.TEST::EVEN. Note: These tests generate warnings involving MACROLET within Iterate ;;; Warning: Iterate: Iterate does not know how to handle the special form (MACROLET ((ITERATE.TEST::FOO () 1)) (ITERATE:MULTIPLYING (ITERATE.TEST::FOO))) It will not be walked, which means that Iterate clauses inside it will not be seen. ITERATE:MULTIPLYING ITERATE.TEST::BUG/MACROLET.2 ;;; Warning: Iterate, in clause (MULTIPLYING (MACROLET ((FOO () 1)) (FOO))): Iterate does not know how to handle the special form (MACROLET ((ITERATE.TEST::FOO () 1)) (ITERATE.TEST::FOO)) It will not be walked, which means that Iterate clauses inside it will not be seen. ITERATE.TEST::MACROLET.3 ITERATE.TEST::NESTED-HASHTABLE.1 ITERATE.TEST::NESTED.IN-HASHTABLE.2 ITERATE.TEST::NESTED.IN-HASHTABLE.3 54 ITERATE.TEST::NESTED.IN-PACKAGE ITERATE.TEST::MACROLET.LOOP-FINISH ITERATE.TEST::TAGBODY.NIL-TAGS ITERATE.TEST::WALK.TAGBODY.1 ITERATE.TEST::WALK.TAGBODY.2 4 out of 261 total tests failed: ITERATE.TEST::CODE-MOVEMENT.ELSE, ITERATE.TEST::CODE-MOVEMENT.FINALLY, ITERATE.TEST::CODE-MOVEMENT.FINALLY-PROTECTED, ITERATE.TEST::BUG/WALK.2.