From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
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))