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.