[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv27802

Modified Files:
	lists.lisp 
Log Message:
Added (setf first) and (setf rest).


--- /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp	2006/04/29 11:30:35	1.13
+++ /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp	2006/04/29 11:41:34	1.14
@@ -9,7 +9,7 @@
 ;;;; Created at:    Tue Dec  5 18:40:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: lists.lisp,v 1.13 2006/04/29 11:30:35 ffjeld Exp $
+;;;; $Id: lists.lisp,v 1.14 2006/04/29 11:41:34 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -25,10 +25,10 @@
 (defun rest (x)
   (cdr x))
 
-(defun (setf first) (x y)
+(defun (setf first) (y x)
   (setf (car x) y))
 
-(defun (setf rest) (x y)
+(defun (setf rest) (y x)
   (setf (cdr x) y))
 
 ;; Compiler-macros for first and rest in basic-macros.lisp.
@@ -431,8 +431,6 @@
 		     :test (if test-not
 			       (complement test-not)
 			     test)))
-
-  
   
 (defun subsetp (list-1 list-2 &key (key 'identity) (test 'eql) test-not)
   "=> generalized-boolean"