diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-09 22:32:14 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-09 22:32:14 +0100 |
| commit | 8cab8f5237616e10d3f5fb35d2a701ec779159c9 (patch) | |
| tree | 7d90a846891efa81d7ecdaf8921b58c4e5aebbc1 | |
| parent | 869663b250b2fdc0e3f4ead54b0639f0e8e481f7 (diff) | |
Fix overzealous style cleanups.
darcs-hash:c5c0a79734ae2d8be8b1c08e3c3e63f84df64a86
| -rw-r--r-- | Lisp/class-definition.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index 6b0f78f..85f3eb6 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -121,11 +121,11 @@ class &allow-other-keys) (when (and (not foreign-name) (not foreign-slot)) - (setq foreign-name (slot-name->foreign-slot-name name) + (setf foreign-name (slot-name->foreign-slot-name name) (slot-value slot-definition 'foreign-name) foreign-name)) (cond ((and foreign-name foreign-slot)) (foreign-name - (setq foreign-slot + (setf foreign-slot (or (find foreign-name (mapcan #'objcl-class-direct-slots (c2mop:compute-class-precedence-list @@ -137,7 +137,7 @@ class)) (slot-value slot-definition 'foreign-slot) foreign-slot)) (foreign-slot - (setq foreign-name (objcl-slot-name foreign-slot) + (setf foreign-name (objcl-slot-name foreign-slot) (slot-value slot-definition 'foreign-name) foreign-name))) (unless foreign-type (setf (slot-value slot-definition 'foreign-type) |