Fix wrong function arguments.

diff --git a/gtk/ui-markup.lisp b/gtk/ui-markup.lisp
index f64c4d4..71b1725 100644 (file)
--- a/gtk/ui-markup.lisp
+++ b/gtk/ui-markup.lisp
@@ -82,11 +82,7 @@
   (unless bottom
     (error "bottom is a mandatory child property for table packing"))
 
-  (table-attach table child
-               :left left
-               :right right
-               :top top
-               :bottom bottom
+  (table-attach table child left right top bottom
                :x-options x-options
                :y-options y-options
                :x-padding x-padding