From 7f0cb5ebae206dd01b9362d06ede6653ea53b553 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 4 Aug 2007 21:07:08 +0200
Subject: Fix a stupid typo (why did this ever work?).

darcs-hash:21df57e875cbb7d56bf828a62921e8c56f00eb8a
---
 Lisp/libobjcl.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Lisp/libobjcl.lisp')

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)
-- 
cgit v1.2.3