From 869663b250b2fdc0e3f4ead54b0639f0e8e481f7 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 8 Feb 2008 22:08:45 +0100 Subject: Stylistic improvements. darcs-hash:052ac7d590da800f6a713bc4c50da6e066fb19ba --- Lisp/class-definition.lisp | 6 +++--- Lisp/reader-syntax.lisp | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) (limited to 'Lisp') diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index 85f3eb6..6b0f78f 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)) - (setf foreign-name (slot-name->foreign-slot-name name) + (setq foreign-name (slot-name->foreign-slot-name name) (slot-value slot-definition 'foreign-name) foreign-name)) (cond ((and foreign-name foreign-slot)) (foreign-name - (setf foreign-slot + (setq 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 - (setf foreign-name (objcl-slot-name foreign-slot) + (setq 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) diff --git a/Lisp/reader-syntax.lisp b/Lisp/reader-syntax.lisp index b8f505c..758d99a 100644 --- a/Lisp/reader-syntax.lisp +++ b/Lisp/reader-syntax.lisp @@ -152,7 +152,7 @@ conciseness. (receiver (if (upper-case-p (peek-char)) ;; A class name. (let ((*readtable* (copy-readtable))) - (setf class-method-p t) + (setq class-method-p t) (setf (readtable-case *readtable*) :preserve) `(find-objc-class ,(symbol-name (read stream t nil t)))) @@ -173,7 +173,7 @@ conciseness. ;; Slurp the trailing #\]. (assert (char= #\] (read-char))) - (setf args (nreverse args)) + (setq args (nreverse args)) `(,(if class-method-p 'invoke-by-name #+nil 'objcl-invoke-instance-method -- cgit v1.2.3