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

[abaine at common-lisp.net]

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