--- old-alexandria/numbers.lisp 2008-03-10 17:42:17.000000000 +0100 +++ new-alexandria/numbers.lisp 2008-03-10 17:42:17.000000000 +0100 @@ -44,7 +44,7 @@ (defun iota (n &key (start 0) (step 1)) "Return a list of n numbers, starting from START (with numeric contagion from STEP applied), each consequtive number being the sum of the previous one -and STEP. START defaults to 0 and STEP to 0. +and STEP. START defaults to 0 and STEP to 1. Examples: @@ -62,13 +62,14 @@ (defun map-iota (function n &key (start 0) (step 1)) "Calls FUNCTION with N numbers, starting from START (with numeric contagion from STEP applied), each consequtive number being the sum of the previous one -and STEP. START defaults to 0 and STEP to 0. Returns N. +and STEP. START defaults to 0 and STEP to 1. Returns N. Examples: - (iota 4) => (0 1 2 3 4) - (iota 3 :start 1 :step 1.0) => (1.0 2.0 3.0) - (iota 3 :start -1 :step -1/2) => (-1 -3/2 -2) + (map-iota #'print 3 :start 1 :step 1.0) => 3 + ;;; 1.0 + ;;; 2.0 + ;;; 3.0 " (declare (type (integer 0) n) (number start step)) (loop repeat n