Changeset 6471


Ignore:
Timestamp:
May 9, 2007, 7:37:20 AM (12 years ago)
Author:
gb
Message:

FUNCTION-INFORMATION might return an afunc (or equivalent) as
a non-nil second value.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/nx-basic.lisp

    r6426 r6471  
    162162                   (if (and (consp (cdr found))(eq (%cadr found) 'macro))
    163163                     (values :macro t nil)
    164                      (values :function (caddr found) decls))))))))))))
     164                     (values :function t decls))))))))))))
    165165
    166166(defun variable-information (var &optional env)
Note: See TracChangeset for help on using the changeset viewer.