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

[abaine at common-lisp.net]

Author: abaine
Date: Mon Aug 20 11:42:10 2007
New Revision: 189

Modified:
   trunk/funds/src/package.lisp
   trunk/funds/src/stack.lisp
Log:
Added and exported stack-as-list and stack-from-list.

Modified: trunk/funds/src/package.lisp
==============================================================================
--- trunk/funds/src/package.lisp	(original)
+++ trunk/funds/src/package.lisp	Mon Aug 20 11:42:10 2007
@@ -57,6 +57,8 @@
 	   :stack-push
 	   :stack-top
 	   :stack-size
+	   :stack-from-list
+	   :stack-as-list
 	   :map-stack
 
 	   :make-dictionary

Modified: trunk/funds/src/stack.lisp
==============================================================================
--- trunk/funds/src/stack.lisp	(original)
+++ trunk/funds/src/stack.lisp	Mon Aug 20 11:42:10 2007
@@ -48,4 +48,14 @@
 (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
+  (mapcar function stack))
+
+(defun stack-from-list (list)
+  "This function is here in case the implementation of stack changes from what 
+it is now, a list."
+  list)
+
+(defun stack-as-list (stack)
+  "This function is here in case the implementation of stack changes from what 
+it is now, a list."
+  stack)
\ No newline at end of file