X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fproclaim.lisp;h=8a616d003d1d2c509c9277d3c76390f2edc526b4;hb=90ca09b75fbc3b63b2f7d09c67b04b866dd783f6;hp=f25b899ff00da9e7c3ae571e225b58b661269052;hpb=edaebea5b5e6682b36f4067e3b187bd9fb4a5c25;p=sbcl.git

diff --git a/src/compiler/proclaim.lisp b/src/compiler/proclaim.lisp
index f25b899..8a616d0 100644
--- a/src/compiler/proclaim.lisp
+++ b/src/compiler/proclaim.lisp
@@ -81,6 +81,8 @@
 	     decl-spec)))))
 
 (defun sb!xc:proclaim (raw-form)
+  #+sb-xc (/show0 "entering PROCLAIM, RAW-FORM=..")
+  #+sb-xc (/hexstr raw-form)
   (let* ((form (canonized-decl-spec raw-form))
 	 (kind (first form))
 	 (args (rest form)))
@@ -191,4 +193,5 @@
       (t
        (unless (info :declaration :recognized kind)
 	 (compiler-warning "unrecognized declaration ~S" raw-form)))))
+  #+sb-xc (/show0 "returning from PROCLAIM")
   (values))