From 25cc1a489ff21bedae0a9ebfc9b462113ccc56c7 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 14 Sep 2007 20:21:46 +0200
Subject: Introduce PRIMITIVE-INVOKE, a lower-level INVOKE-BY-NAME alternative
 written in Lisp only.

darcs-hash:cc01d5054194e3be05efa9fc002da30e04d7068e
---
 Lisp/libobjcl.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Lisp/libobjcl.lisp')

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.
-- 
cgit v1.2.3