summaryrefslogtreecommitdiff
path: root/Lisp/libobjcl.lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-09-14 20:21:46 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-09-14 20:21:46 +0200
commit25cc1a489ff21bedae0a9ebfc9b462113ccc56c7 (patch)
tree6baf0022d6d5ffa0e193dd9be165f1ffc0a6a14d /Lisp/libobjcl.lisp
parentb6418f77118e823781edf80b461d14adf1fd8d41 (diff)
Introduce PRIMITIVE-INVOKE, a lower-level INVOKE-BY-NAME alternative written in Lisp only.
darcs-hash:cc01d5054194e3be05efa9fc002da30e04d7068e
Diffstat (limited to 'Lisp/libobjcl.lisp')
-rw-r--r--Lisp/libobjcl.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index bf80c30..d5d7379 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -290,7 +290,7 @@ by which __invoke__ converts its arguments into a *message name*.
'(satisfies cffi:pointerp)))
-(declaim (ftype (function ((or selector string list)) selector)
+(declaim (ftype (function ((or selector string symbol list)) selector)
selector))
(defun selector (designator)
"Convert an object into a selector.