diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-04 17:27:49 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-04 17:27:49 +0200 |
| commit | 4bf7ff0fac043bbe1516e00fdd3567ed38fe6ff4 (patch) | |
| tree | 060b10832dba766ec739c40a5262651bc5613aa2 /Lisp/reader-syntax.lisp | |
| parent | 0b07278c11c0ecb073356b15f1ed5e8781583d0c (diff) | |
Define an external interface, properly document FIND-OBJC-CLASS.
darcs-hash:2e4424a65b72a13e3cfa26d07dce945bc35ba8e1
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 |