chiark / gitweb /
Fixed argument type in definition of %WINDOW-SET-DEFAULT-ICON
authorespen <espen>
Mon, 14 Apr 2008 19:10:41 +0000 (19:10 +0000)
committerespen <espen>
Mon, 14 Apr 2008 19:10:41 +0000 (19:10 +0000)
gtk/gtk.lisp

index 5d1e3cb..b00c1ab 100644 (file)
@@ -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: gtk.lisp,v 1.92 2008-04-10 20:38:49 espen Exp $
+;; $Id: gtk.lisp,v 1.93 2008-04-14 19:10:41 espen Exp $
 
 
 (in-package "GTK")
@@ -1686,7 +1686,7 @@ (defun (setf window-default-icon-list) (icons)
   icons)
 
 (defbinding %window-set-default-icon () nil
-  (icons (glist gdk:pixbuf)))
+  (icon gdk:pixbuf))
 
 (defgeneric (setf window-default-icon) (icon))