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

Author: abaine Date: Mon Jul 2 18:59:43 2007 New Revision: 41

Modified: trunk/funds/src/stack/stack.lisp Log: Switched the order of stack-push arguments.

Modified: trunk/funds/src/stack/stack.lisp ============================================================================== --- trunk/funds/src/stack/stack.lisp (original) +++ trunk/funds/src/stack/stack.lisp Mon Jul 2 18:59:43 2007 @@ -5,7 +5,7 @@ "An empty stack." nil)

-(defun stack-push (item stack) +(defun stack-push (stack item) "The stack that results when the given item is pushed onto the given stack." (cons item stack))