uffi/src aggregates.lisp,1.7,1.8

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

Modified Files:
	aggregates.lisp 
Log Message:


Index: aggregates.lisp
===================================================================
RCS file: /pubcvs/uffi/src/aggregates.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** aggregates.lisp	6 Jun 2003 21:59:18 -0000	1.7
--- aggregates.lisp	13 Aug 2003 18:53:42 -0000	1.8
***************
*** 81,85 ****
  			      #+sbcl `((* (sb-alien:struct ,name)))
  			      #+mcl `((:* (:struct ,name)))
! 			      #-(or cmu sbcl scl mcl) `((* ,name))
  			      `(,(convert-from-uffi-type type :struct))))))
  	(if variant
--- 81,86 ----
  			      #+sbcl `((* (sb-alien:struct ,name)))
  			      #+mcl `((:* (:struct ,name)))
! 			      #+lispworks `((:pointer ,name))
! 			      #-(or cmu sbcl scl mcl lispworks) `((* ,name))
  			      `(,(convert-from-uffi-type type :struct))))))
  	(if variant