From 2fcb4e856701cbab5dc1ad9312502d0793cefd57 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 19 Sep 2009 15:02:46 +0400 Subject: [PATCH] fix gtk-demo:demo-all --- gtk/gtk.demo.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4