[movitz-cvs] CVS update: movitz/losp/muerte/defstruct.lisp

[Frode Vatvedt Fjeld]

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