uffi/benchmarks allocation.lisp,1.1,1.2

Update of /pubcvs/uffi/benchmarks
In directory boa.b9.com:/tmp/cvs-serv28069

Modified Files:
	allocation.lisp 
Log Message:


Index: allocation.lisp
===================================================================
RCS file: /pubcvs/uffi/benchmarks/allocation.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** allocation.lisp	30 Sep 2002 10:02:36 -0000	1.1
--- allocation.lisp	29 Apr 2003 19:51:20 -0000	1.2
***************
*** 32,35 ****
--- 32,39 ----
      (let ((p (alien:addr ptr)))
        (setf (alien:deref p) 0)))
+   #+sbcl
+   (sb-alien:with-alien ((ptr sb-alien:signed))
+     (let ((p (sb-alien:addr ptr)))
+       (setf (sb-alien:deref p) 0)))
    )
  
***************
*** 44,47 ****
--- 48,54 ----
    (alien:with-alien ((ptr (alien:array alien:signed 10)))
      (setf (alien:deref ptr 5) 0))
+   #+sbcl
+   (sb-alien:with-alien ((ptr (sb-alien:array sb-alien:signed 10)))
+     (setf (sb-alien:deref ptr 5) 0))
    )
  
***************
*** 63,66 ****
--- 70,79 ----
      (setf (alien:deref ptr) 0)
      (alien:free-alien ptr))
+   #+sbcl
+   (let ((ptr (sb-alien:make-alien (sb-alien:signed 32))))
+     (declare ;;(type (alien (* (alien:unsigned 32))) ptr)
+      (dynamic-extent ptr))
+     (setf (sb-alien:deref ptr) 0)
+     (sb-alien:free-alien ptr))
    )
  
***************
*** 82,85 ****
--- 95,104 ----
      (setf (alien:deref ptr 5) 0)
      (alien:free-alien ptr))
+   #+sbcl
+   (let ((ptr (sb-alien:make-alien (sb-alien:array (sb-alien:signed 32) 10))))
+     (declare ;;(type (sb-alien (* (sb-alien:unsigned 32))) ptr)
+ 	     (dynamic-extent ptr))
+     (setf (sb-alien:deref ptr 5) 0)
+     (sb-alien:free-alien ptr))
    )