X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fknownfun.lisp;h=5a30ffc45583e107414caed4fbc6400669065deb;hb=a18f0a95bc9a457e4d2d00c702b746f29c2662b1;hp=220bd57231457f9f934a80f2b9a6c04658fe24d1;hpb=0b5610d8a220a4b20cbeac958953ca4d67c00038;p=sbcl.git

diff --git a/src/compiler/knownfun.lisp b/src/compiler/knownfun.lisp
index 220bd57..5a30ffc 100644
--- a/src/compiler/knownfun.lisp
+++ b/src/compiler/knownfun.lisp
@@ -14,6 +14,8 @@
 
 (in-package "SB!C")
 
+(/show0 "knownfun.lisp 17")
+
 ;;; IR1 boolean function attributes
 ;;;
 ;;; There are a number of boolean attributes of known functions which we like
@@ -233,3 +235,5 @@
     (let ((cont (nth (1- n) (combination-args call))))
       (when (and cont (constant-continuation-p cont))
 	(specifier-type (continuation-value cont))))))
+
+(/show0 "knownfun.lisp end of file")