X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-grovel%2Fforeign-glue.lisp;h=dcbda61d1de4d40031610d98ab374e683e5ac45a;hb=1ecff2d1bc56850bf2f262a56402df4683fc57d9;hp=4070e74f4ac50c57586e6d2b99abb78c54a61dd0;hpb=96f9d7f026dbafe7c6a7842acf4b1376149dbf6d;p=sbcl.git

diff --git a/contrib/sb-grovel/foreign-glue.lisp b/contrib/sb-grovel/foreign-glue.lisp
index 4070e74..dcbda61 100644
--- a/contrib/sb-grovel/foreign-glue.lisp
+++ b/contrib/sb-grovel/foreign-glue.lisp
@@ -97,7 +97,7 @@
                  :type `(array char ,len)
                  :offset offset
                  :size len
-                 :name (gentemp "PADDING")))
+                 :name (intern (format nil "PADDING-~D-~D" len offset))))
 (defun mk-struct (offset &rest children)
   (make-instance 'struct :name (gentemp "STRUCT")
                  :children (remove nil children)