fix gtk-demo:demo-all
authorDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Sat, 19 Sep 2009 11:02:46 +0000 (15:02 +0400)
committerDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Sat, 19 Sep 2009 11:02:46 +0000 (15:02 +0400)
gtk/gtk.demo.lisp

index 0df75b2..e9bb59c 100644 (file)
       (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))