Using typep or compiled-function-p on an interpreted function seems to return the wrong answer -- they think that the interpreted function is compiled.
Any ideas? See transcript below. Thanks. -bill- ---------------------------------------------------------------------------------------------- CMU Common Lisp 18e linkage CVS 2003-04-14 16:28:55, running on otwb-dev With core: /net/dlsun3003/private/projects/org/develop/CMUCL/lib/cmucl/lib/lisp.core Dumped on: Mon, 2003-04-14 14:49:54-07:00 on edgedsp4 See <http://www.cons.org/cmucl/> for support information. Loaded subsystems: Python 1.1, target SPARCstation/Solaris 2 CLOS 18e (based on PCL September 16 92 PCL (f)) * (defun foo (a b) (+ a b)) FOO * (describe (symbol-function 'foo)) #<Interpreted Function FOO {4002A571}> is function. Arguments: (A B) Its defined argument types are: (T T) Its result type is: * Its definition is: (LAMBDA (A B) (BLOCK FOO #)) * (type-of (symbol-function 'foo)) EVAL:INTERPRETED-FUNCTION * (typep (symbol-function 'foo) 'compiled-function) T * (compiled-function-p (symbol-function 'foo)) ; T ----------------------------------------------------------------------------------------------
