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))