diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-08 22:08:45 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-08 22:08:45 +0100 |
| commit | 869663b250b2fdc0e3f4ead54b0639f0e8e481f7 (patch) | |
| tree | 3b5a7ba9e3c33dcf9edfc0fbf0f5ab2845448af9 /Lisp/reader-syntax.lisp | |
| parent | a8c68aa48b01e609467d3295e0fdb63322b5ff69 (diff) | |
Stylistic improvements.
darcs-hash:052ac7d590da800f6a713bc4c50da6e066fb19ba
Diffstat (limited to 'Lisp/reader-syntax.lisp')
| -rw-r--r-- | Lisp/reader-syntax.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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 |