Changeset 6426

Timestamp:

May 4, 2007, 8:45:43 PM (18 years ago)

Author:

Gary Byers

Message:

FUNCTION-INFORMATION returns what it finds in the environment, not
just non-nil.

File:

• trunk/ccl/compiler/nx-basic.lisp (modified) (1 diff)

trunk/ccl/compiler/nx-basic.lisp

@@ -162 +162 @@
                    (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)