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

[abaine at common-lisp.net]

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