[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-serv6817

Modified Files:
	defstruct.lisp 
Log Message:
Added function structure-object-length.

Date: Fri Mar 26 08:57:12 2004
Author: ffjeld

Index: movitz/losp/muerte/defstruct.lisp
diff -u movitz/losp/muerte/defstruct.lisp:1.3 movitz/losp/muerte/defstruct.lisp:1.4
--- movitz/losp/muerte/defstruct.lisp:1.3	Mon Mar 22 11:37:59 2004
+++ movitz/losp/muerte/defstruct.lisp	Fri Mar 26 08:57:12 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.3 2004/03/22 16:37:59 ffjeld Exp $
+;;;; $Id: defstruct.lisp,v 1.4 2004/03/26 13:57:12 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -18,6 +18,10 @@
 (provide :muerte/defstruct)
 
 (in-package muerte)
+
+(defun structure-object-length (obj)
+  (check-type obj structure-object)
+  (movitz-accessor-u16 obj movitz-struct length))
 
 (defun struct-predicate-prototype (obj)
   "Prototype function for predicates of user-defined struct.