Fix to typed-invocation-p
Sun Sep 23 16:41:28 PDT 2007 matley@muppetslab.org
* Fix to typed-invocation-p
diff -rN -u old-cl-objc/src/lisp-interface.lisp new-cl-objc/src/lisp-interface.lisp
--- old-cl-objc/src/lisp-interface.lisp 2014-08-01 06:53:23.000000000 -0700
+++ new-cl-objc/src/lisp-interface.lisp 2014-08-01 06:53:23.000000000 -0700
@@ -3,7 +3,6 @@
;;; Name translators
(defparameter *acronyms* '("UTF"
"FTP"
- "WEB"
"HTTP")
"Acronyms used in name translators")
@@ -97,7 +96,7 @@
(selector-part (car selectors-and-args) (car selectors-and-args))
(cffi-type (cadr selectors-and-args) (cadr selectors-and-args))
(arg (caddr selectors-and-args) (caddr selectors-and-args)))
- (selectors-and-args t)
+ ((null selectors-and-args) t)
(when (not (keywordp selector-part))
(return nil))
(when (not (cffi-type-p cffi-type))