X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=a9af065be7b37595b11369333f679128479e9e73;hb=a0a413499415738d23cc40baa44e9c404af54a94;hp=205148632c10bf2969ab43953a03454bd2d0dac5;hpb=6498af7fdc48d9bf5df33e75d7e4d385893feb06;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 2051486..a9af065 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -35,6 +35,9 @@
                  (values (svref (sb!c::debug-source-name source) 0)
                          nil
 			 name))
+		;; FIXME: shouldn't these two clauses be the other way
+		;; round?  Using VALID-FUNCTION-NAME-P to see if we
+		;; want to find an inline-expansion?
                 ((stringp name)
                  (values nil t name))
                 (t