From: Dmitry Kalyanov Date: Sun, 8 Nov 2009 12:22:53 +0000 (+0300) Subject: Fix typo X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3619f9bbf16d06df21fb95cc9070ceee236c63e2;p=cl-gtk2.git Fix typo --- diff --git a/gtk/gtk.demo.lisp b/gtk/gtk.demo.lisp index e742a44..d0c3645 100644 --- a/gtk/gtk.demo.lisp +++ b/gtk/gtk.demo.lisp @@ -1029,7 +1029,7 @@ (for it = (tree-store-insert-with-values l nil i n s)) (iter (for j from 0 below 10) (for n2 = (random 10000000)) - (for s2 = (format nil "~R" n)) + (for s2 = (format nil "~R" n2)) (tree-store-insert-with-values l it j n2 s2))) (setf (tree-view-model tv) l) (let ((column (make-instance 'tree-view-column :title "Number" :sort-column-id 0))