From 3619f9bbf16d06df21fb95cc9070ceee236c63e2 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 8 Nov 2009 15:22:53 +0300 Subject: [PATCH] Fix typo --- gtk/gtk.demo.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4