X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Fintrospect.lisp;h=c5bb86aa79368315c89f1c5faed615d43acb0d20;hb=0623c52c838b86cfcf3bd5a5b388324ac51ebaf9;hp=1e28bc88b5daaa0585bcc9ff85066a86e9139ec8;hpb=4e77726ecbe2bb33d3208610266db3b8c9cb2719;p=sbcl.git diff --git a/contrib/sb-introspect/introspect.lisp b/contrib/sb-introspect/introspect.lisp index 1e28bc8..c5bb86a 100644 --- a/contrib/sb-introspect/introspect.lisp +++ b/contrib/sb-introspect/introspect.lisp @@ -96,7 +96,8 @@ include the pathname of the file and the position of the definition." (elt (sb-c::compiled-debug-info-fun-map debug-info) 0)) (defun valid-function-name-p (name) - "True if NAME denotes a function name that can be passed to MACRO-FUNCTION or FDEFINITION " + "True if NAME denotes a valid function name, ie. one that can be passed to +FBOUNDP." (and (sb-int:valid-function-name-p name) t)) ;;;; Finding definitions