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