Improved alignment of struct slots

[clg] / gffi / defpackage.lisp

diff --git a/gffi/defpackage.lisp b/gffi/defpackage.lisp
index ea01eed3bbcf15dbab5b2bffde2c2f54abba0f1e..feb03b5d2dab193a21343914138f1bbb547ac2ec 100644 (file)
--- a/gffi/defpackage.lisp
+++ b/gffi/defpackage.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: defpackage.lisp,v 1.1 2006/04/25 20:29:14 espen Exp $
+;; $Id: defpackage.lisp,v 1.2 2006/06/08 13:24:25 espen Exp $
 
 (defpackage "GFFI"
   (:use "COMMON-LISP" "AUTOEXPORT" "PKG-CONFIG" "CLG-UTILS")
@@ -56,9 +56,9 @@ (defpackage "GFFI"
           "DEFAULT-ALIEN-TYPE-NAME" "DEFAULT-TYPE-NAME" "TYPE-EXPAND" 
           "TYPE-EXPAND-1" "TYPE-EXPAND-TO")
   ;; Symbols from basic-types.lisp
-  (:export "LONG" "UNSIGNED-LONG" "INT" "UNSIGNED-INT" "SHORT" 
-          "UNSIGNED-SHORT" "SIGNED" "UNSIGNED" "CHAR" "POINTER"
-          "BOOL" "COPY-OF" "STATIC" "SIZE-OF" "ALIEN-TYPE" "UNBOUND-VALUE"
+  (:export "LONG" "UNSIGNED-LONG" "INT" "UNSIGNED-INT" "SHORT" "UNSIGNED-SHORT"
+          "SIGNED" "UNSIGNED" "CHAR" "POINTER" "BOOL" "COPY-OF" "STATIC" 
+          "SIZE-OF" "TYPE-ALIGNMENT" "ALIEN-TYPE" "UNBOUND-VALUE" 
           "ALIEN-ARG-WRAPPER" "TO-ALIEN-FORM" "FROM-ALIEN-FORM"
           "CALLBACK-WRAPPER" "TO-ALIEN-FUNCTION" "FROM-ALIEN-FUNCTION" 
           "READER-FUNCTION" "WRITER-FUNCTION" "GETTER-FUNCTION"