summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-08-04 21:07:08 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-08-04 21:07:08 +0200
commit7f0cb5ebae206dd01b9362d06ede6653ea53b553 (patch)
treee6ddffcb42484a323f6fb43abb7fc82ce271deb9
parent424402274218149eb9ff7fc560b55534c4b2b70c (diff)
Fix a stupid typo (why did this ever work?).
darcs-hash:21df57e875cbb7d56bf828a62921e8c56f00eb8a
-rw-r--r--Lisp/libobjcl.lisp2
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)