From 80a09c29e3e604a25dd0a32282bc6b2c73fbaa4d Mon Sep 17 00:00:00 2001 From: espen Date: Sun, 24 Mar 2002 12:56:03 +0000 Subject: [PATCH] Added :except keyword to use with :ignore-prefix in DEFINE-TYPES-BY-INTROSPECTION --- glib/gtype.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/glib/gtype.lisp b/glib/gtype.lisp index 8f8e3c0..2b4a2d0 100644 --- a/glib/gtype.lisp +++ b/glib/gtype.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gtype.lisp,v 1.15 2002-01-20 14:09:52 espen Exp $ +;; $Id: gtype.lisp,v 1.16 2002-03-24 12:56:03 espen Exp $ (in-package "GLIB") @@ -332,7 +332,11 @@ #'(lambda (options) (and (string-prefix-p (first options) name) - (getf (cdr options) :ignore-prefix))) + (getf (cdr options) :ignore-prefix) + (not (some + #'(lambda (exception) + (string= name exception)) + (getf (cdr options) :except))))) args)))) (find-types prefix)))) -- 2.11.0