diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 22:21:53 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 22:21:53 +0100 |
| commit | 42ab4123b1c1d0d2f4cf9c4b450caee39a798ad1 (patch) | |
| tree | 4e6c34cab7f821f2f7588c1ce87c0555cb377f48 /Lisp/class-definition.lisp | |
| parent | 03239b38e120640e923f39eebd6c416147aebc19 (diff) | |
Properly convert foreign slot names into CLOS slot names.
darcs-hash:86d821bf8ce3432e3ca70dd6429f923d4283baa7
Diffstat (limited to 'Lisp/class-definition.lisp')
| -rw-r--r-- | Lisp/class-definition.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index c9e48c1..54af234 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -215,7 +215,8 @@ ;; add them to our :DIRECT-SLOTS keyword argument. (let ((key-args (copy-list args))) (dolist (objc-slot (objcl-class-direct-slots/pointer pointer)) - (pushnew (list :name (intern (string-upcase (objcl-slot-name objc-slot)) + (pushnew (list :name (intern (foreign-slot-name->slot-name + (objcl-slot-name objc-slot)) (find-package '#:objective-c-classes)) :foreign-name (objcl-slot-name objc-slot) :foreign-type (parse-typespec (objcl-slot-type objc-slot))) |