summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-09 22:32:14 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-09 22:32:14 +0100
commit8cab8f5237616e10d3f5fb35d2a701ec779159c9 (patch)
tree7d90a846891efa81d7ecdaf8921b58c4e5aebbc1 /Lisp
parent869663b250b2fdc0e3f4ead54b0639f0e8e481f7 (diff)
Fix overzealous style cleanups.
darcs-hash:c5c0a79734ae2d8be8b1c08e3c3e63f84df64a86
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/class-definition.lisp6
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)