Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv30575
Modified Files: defstruct.lisp Log Message: Changed the signature of memref and (setf memref) to use keywords also for the index and type arguments.
Date: Mon Oct 11 15:52:28 2004 Author: ffjeld
Index: movitz/losp/muerte/defstruct.lisp diff -u movitz/losp/muerte/defstruct.lisp:1.14 movitz/losp/muerte/defstruct.lisp:1.15 --- movitz/losp/muerte/defstruct.lisp:1.14 Thu Sep 23 11:31:28 2004 +++ movitz/losp/muerte/defstruct.lisp Mon Oct 11 15:52:27 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Jan 22 13:10:59 2001 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: defstruct.lisp,v 1.14 2004/09/23 09:31:28 ffjeld Exp $ +;;;; $Id: defstruct.lisp,v 1.15 2004/10/11 13:52:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -21,10 +21,10 @@
(defun structure-object-length (object) (check-type object structure-object) - (memref object -4 0 :unsigned-byte14)) + (memref object -4 :type :unsigned-byte14))
(defun structure-object-class (x) - (memref x -6 1 :lisp)) + (memref x -6 :index 1))
(defun copy-structure (object) (%shallow-copy-object object (+ 2 (structure-object-length object))))