summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Lisp/libobjcl.lisp2
1 files changed, 1 insertions, 1 deletions
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)))