diff options
Diffstat (limited to 'Lisp/reader-syntax.lisp')
| -rw-r--r-- | Lisp/reader-syntax.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Lisp/reader-syntax.lisp b/Lisp/reader-syntax.lisp index 4a1491f..3ca143b 100644 --- a/Lisp/reader-syntax.lisp +++ b/Lisp/reader-syntax.lisp @@ -28,7 +28,7 @@ (let ((*readtable* (copy-readtable))) (setf class-method-p t) (setf (readtable-case *readtable*) :preserve) - `(objcl-find-class + `(find-objc-class ,(symbol-name (read stream t nil t)))) ;; Something else. (read stream t nil t))) @@ -49,9 +49,9 @@ (assert (char= #\] (read-char))) (setf args (nreverse args)) `(,(if class-method-p - 'objcl-invoke-class-method + 'invoke-by-name #+nil 'objcl-invoke-instance-method - #-nil 'objcl-invoke-class-method) + #-nil 'invoke-by-name) ,receiver ,(make-array (list (length message)) :element-type 'character |