[funds-cvs] r58 - trunk/funds/src/stack

Author: abaine Date: Sat Jul 7 16:45:17 2007 New Revision: 58

Modified: trunk/funds/src/stack/stack.lisp Log: Changed name of stack-length to stack-size.

Modified: trunk/funds/src/stack/stack.lisp ============================================================================== --- trunk/funds/src/stack/stack.lisp (original) +++ trunk/funds/src/stack/stack.lisp Sat Jul 7 16:45:17 2007 @@ -21,7 +21,7 @@ "Whether the given stack is empty." (null stack))

-(defun stack-length (stack) +(defun stack-size (stack) "The number of items on this stack; note that this is an O(n) operation." (labels ((f (stack accum) (if (stack-empty-p stack)