Index: /trunk/ccl/compiler/nx-basic.lisp
===================================================================
--- /trunk/ccl/compiler/nx-basic.lisp	(revision 6425)
+++ /trunk/ccl/compiler/nx-basic.lisp	(revision 6426)
@@ -162,5 +162,5 @@
                    (if (and (consp (cdr found))(eq (%cadr found) 'macro))
                      (values :macro t nil)
-                     (values :function t decls))))))))))))
+                     (values :function (caddr found) decls))))))))))))
 
 (defun variable-information (var &optional env)