From 8e7a47056993b9320ffc184c60991d0a62307ec5 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 4 Mar 2008 16:38:34 +0100 Subject: Fix function POINTER for arguments of type EXCEPTION. darcs-hash:a2605bdf40d3be4bb2950c34cb275d84cd68758f --- Lisp/libobjcl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index ca8e3d8..d8e8b07 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -757,7 +757,7 @@ separating parts by hyphens works nicely in all of the `:INVERT`, (defun pointer (thing) (etypecase thing (c-pointer thing) - (c-pointer-wrapper (pointer-to thing)))) + ((or c-pointer-wrapper exception) (pointer-to thing)))) (defun object-is-class-p (obj) (%objcl-object-is-class (pointer obj))) -- cgit v1.2.3