Fix overzealous style cleanups.

darcs-hash:c5c0a79734ae2d8be8b1c08e3c3e63f84df64a86

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)