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

[abaine at common-lisp.net]

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)