From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 19 Sep 2009 11:02:46 +0000 (+0400)
Subject: fix gtk-demo:demo-all
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2fcb4e856701cbab5dc1ad9312502d0793cefd57;p=cl-gtk2.git

fix gtk-demo:demo-all
---

diff --git a/gtk/gtk.demo.lisp b/gtk/gtk.demo.lisp
index 0df75b2..e9bb59c 100644
--- a/gtk/gtk.demo.lisp
+++ b/gtk/gtk.demo.lisp
@@ -908,8 +908,8 @@
       (container-add viewport v-box-buttons)
       (iter (for s in-package :gtk-demo :external-only t)
             (for fn = (fdefinition s))
-            (unless fn (continue))
-            (when (eq s 'demo-all) (continue))
+            (unless fn (next-iteration))
+            (when (eq s 'gtk-demo:demo-all) (next-iteration))
             (for docstring = (documentation fn t))
             (for description = (format nil "~A~@[~%~A~]" (string-downcase (symbol-name s)) docstring))
             (for label = (make-instance 'label :label description :justify :center))