From b673a77b9342c272dc57fc0b54396cd1b162a9b5 Mon Sep 17 00:00:00 2001 From: espen Date: Fri, 6 Apr 2007 16:06:24 +0000 Subject: [PATCH] Type specifier NIL handled as special case in FIND-NEXT-TYPE-METHOD --- gffi/interface.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gffi/interface.lisp b/gffi/interface.lisp index 96bbb87..6778ea6 100644 --- a/gffi/interface.lisp +++ b/gffi/interface.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: interface.lisp,v 1.4 2006-12-12 14:32:06 espen Exp $ +;; $Id: interface.lisp,v 1.5 2007-04-06 16:06:24 espen Exp $ (in-package "GFFI") @@ -454,7 +454,9 @@ ;; This is to handle unexpandable types whichs doesn't name a ;; class. It may cause infinite loops with illegal ;; call-next-method calls - (unless (and (symbolp type-spec) (find-class type-spec nil)) + (unless (or + (null type-spec) + (and (symbolp type-spec) (find-class type-spec nil))) (search-nodes (get name 'built-in-type-hierarchy))) (when error-p (error "No next type method ~A for type specifier ~A" -- 2.11.0