[funds-cvs] r183 - trunk/funds/src

Author: abaine Date: Sun Aug 19 21:49:51 2007 New Revision: 183

Modified: trunk/funds/src/stack.lisp Log: Added map-stack.

Modified: trunk/funds/src/stack.lisp ============================================================================== --- trunk/funds/src/stack.lisp (original) +++ trunk/funds/src/stack.lisp Sun Aug 19 21:49:51 2007 @@ -44,3 +44,8 @@ accum (f (stack-pop stack) (1+ accum))))) (f stack 0))) + +(defun map-stack (function stack) + "A stack whose elements are those of the given stack when function is applied +to them." + (mapcar function stack)) \ No newline at end of file