Update of /cvsroot/sbcl/sbcl/contrib/sb-grovel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31517/contrib/sb-grovel
Modified Files:
foreign-glue.lisp
Log Message:
0.8.12.54:
Various rather urgent sb-grovel and sb-bsd-sockets fixes.
* sb-grovel uses WITH-ALIEN now for the WITH-* macros,
to allow use of SB-ALIEN:ADDR on variables allocated that way.
* sb-bsd-sockets: name-service code now return addresses as vectors
again.
* sb-bsd-sockets: fix socket-receive into relative workingness
again: use (deref (deref array) i) instead of (deref array i);
type-convert the results
Index: foreign-glue.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-grovel/foreign-glue.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- foreign-glue.lisp 19 Jul 2004 20:46:48 -0000 1.8
+++ foreign-glue.lisp 25 Jul 2004 11:31:37 -0000 1.9
@@ -365,7 +365,7 @@
(symbol-name ',name) "-"
(symbol-name x))
,(symbol-package name))))
- `(let ((,var ,'(,(intern (format nil "ALLOCATE-~A" name)))))
+ `(sb-alien:with-alien ((,var (* ,',name) ,'(,(intern (format nil "ALLOCATE-~A" name)))))
(unwind-protect
(progn
(progn ,@(mapcar (lambda (pair)
|