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

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

--- /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp 2005/08/21 19:00:16 1.12 +++ /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp 2006/04/29 11:30:35 1.13 @@ -9,7 +9,7 @@ ;;;; Created at: Tue Dec 5 18:40:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: lists.lisp,v 1.12 2005/08/21 19:00:16 ffjeld Exp $ +;;;; $Id: lists.lisp,v 1.13 2006/04/29 11:30:35 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -25,6 +25,12 @@ (defun rest (x) (cdr x))

+(defun (setf first) (x y) + (setf (car x) y)) + +(defun (setf rest) (x y) + (setf (cdr x) y)) + ;; Compiler-macros for first and rest in basic-macros.lisp.

(defun second (x) (cadr x))