summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 16:38:34 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-04 16:38:34 +0100
commit8e7a47056993b9320ffc184c60991d0a62307ec5 (patch)
tree4c41ec616ac8226afcf6b88eaf39d36a5c7ebbf7
parent6da58040addc2b65a3f6e9a9b4a6cbbbc1a29047 (diff)
Fix function POINTER for arguments of type EXCEPTION.
darcs-hash:a2605bdf40d3be4bb2950c34cb275d84cd68758f
-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)))