chiark / gitweb /
Inhibit compiler warnings
authorespen <espen>
Sun, 24 Mar 2002 13:28:22 +0000 (13:28 +0000)
committerespen <espen>
Sun, 24 Mar 2002 13:28:22 +0000 (13:28 +0000)
gtk/gtk.lisp

index 9851807a81dc6846059e841bf7c81dfea298c1d0..5d94a7935abafdaff8f794f06dfb9379dcfd88a5 100644 (file)
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-;; $Id: gtk.lisp,v 1.7 2001-11-12 22:34:28 espen Exp $
+;; $Id: gtk.lisp,v 1.8 2002-03-24 13:28:22 espen Exp $
 
 
 (in-package "GTK")
@@ -76,6 +76,12 @@ (defbinding adjustment-clamp-page () nil
 
 ;;; Bin
 
+(progn
+  (declaim (optimize (ext:inhibit-warnings 3)))
+  (defun container-remove (container child))
+  (defun container-add (container child)))
+
+
 (defun (setf bin-child) (child bin)
   (when-bind (current-child (bin-child bin))
     (container-remove bin current-child))