X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-grovel%2Fforeign-glue.lisp;h=a98cca10547c5db437d222b4dc9946ef6d51bef1;hb=fb8533122551bbb7aea669f40bc91c1211809b58;hp=457e45357171df5060aa6c70d4af9a7a537e19a2;hpb=ecae2f9323086c64d026d4ce719590907f486c63;p=sbcl.git

diff --git a/contrib/sb-grovel/foreign-glue.lisp b/contrib/sb-grovel/foreign-glue.lisp
index 457e453..a98cca1 100644
--- a/contrib/sb-grovel/foreign-glue.lisp
+++ b/contrib/sb-grovel/foreign-glue.lisp
@@ -365,7 +365,7 @@ deeply nested structures."
 					 (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)