diff options
| -rw-r--r-- | Lisp/libobjcl.lisp | 2 |
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))) |