diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-04 21:07:08 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-04 21:07:08 +0200 |
| commit | 7f0cb5ebae206dd01b9362d06ede6653ea53b553 (patch) | |
| tree | e6ddffcb42484a323f6fb43abb7fc82ce271deb9 | |
| parent | 424402274218149eb9ff7fc560b55534c4b2b70c (diff) | |
Fix a stupid typo (why did this ever work?).
darcs-hash:21df57e875cbb7d56bf828a62921e8c56f00eb8a
| -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 1139004..3313558 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -123,7 +123,7 @@ conventional case for namespace identifiers in Objective C." (declare (type (or objc-class objc-id objc-exception) class)) (let ((obj-data (foreign-alloc 'obj-data))) (with-foreign-slots ((type data) obj-data obj-data) - (setf (foreign-slot-value obj-data + (setf (foreign-slot-value data 'obj-data-union (etypecase class (objc-class 'class-val) |