Add a boundp-function slot, which is required by virtual slot getter.

[clg] / gdk / gdk.lisp

diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp
index 3288559ef3085dc19e0547f4efc4108dd11628be..f3ec462673ac95dd6c6c5e61801f39098e4c7bb6 100644 (file)
--- a/gdk/gdk.lisp
+++ b/gdk/gdk.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: gdk.lisp,v 1.49 2008-04-11 19:47:39 espen Exp $
+;; $Id: gdk.lisp,v 1.50 2008-04-21 16:21:07 espen Exp $
 
 
 (in-package "GDK")
@@ -305,7 +305,7 @@ (defbinding (events-pending-p "gdk_events_pending") () boolean)
 
 (defbinding event-get () (or null event))
 
-(defbinding event-peek () (pr null event))
+(defbinding event-peek () (or null event))
 
 (defbinding event-get-graphics-expose () event
   (window window))