X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/d73e091e31482cc624570042aeca9502839b0d83..beae657932a8db54ea662b6b48eebb62dd23f98b:/examples/testdnd.lisp

diff --git a/examples/testdnd.lisp b/examples/testdnd.lisp
index 2e6c656..d796fd7 100644
--- a/examples/testdnd.lisp
+++ b/examples/testdnd.lisp
@@ -61,7 +61,7 @@ (defvar gtk-xpm
 (defvar *target-type-text* 80)
 (defvar *target-type-image* 81)
 
-(setq from-image 
+(defvar from-image 
   (list
    (make-instance 'target-entry :target "text/plain" :id *target-type-text*)
    (make-instance 'target-entry :target "image/png" :id *target-type-image*)))
@@ -123,7 +123,6 @@ (defun create-layout (width height)
     (signal-connect button 'drag-data-received
      #'(lambda (context x y selection target-type time)
 	 (declare (ignore context x y time))
-	 (print 'her)
 	 (when (= target-type *target-type-text*)
 	   (setf 
 	    (button-label button)