uffi/src objects.lisp,1.10,1.11

Update of /pubcvs/uffi/src
In directory boa.b9.com:/tmp/cvs-serv773/uffi/src

Modified Files:
	objects.lisp 
Log Message:


Index: objects.lisp
===================================================================
RCS file: /pubcvs/uffi/src/objects.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** objects.lisp	30 Dec 2002 20:49:12 -0000	1.10
--- objects.lisp	31 Mar 2003 19:22:24 -0000	1.11
***************
*** 136,139 ****
--- 136,144 ----
    obj)
  
+ ;; Returns the numeric value of a byte at a pointer
+ ;; Highly optimized
+ (defmacro byte-value-at-pointer (ptr)
+   )
+ 
  (defmacro pointer-address (obj)
    #+(or cmu scl)