diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 16:38:34 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-04 16:38:34 +0100 |
| commit | 8e7a47056993b9320ffc184c60991d0a62307ec5 (patch) | |
| tree | 4c41ec616ac8226afcf6b88eaf39d36a5c7ebbf7 | |
| parent | 6da58040addc2b65a3f6e9a9b4a6cbbbc1a29047 (diff) | |
Fix function POINTER for arguments of type EXCEPTION.
darcs-hash:a2605bdf40d3be4bb2950c34cb275d84cd68758f
| -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))) |