Index: /branches/source-tracking-0801/ccl/compiler/lambda-list.lisp
===================================================================
--- /branches/source-tracking-0801/ccl/compiler/lambda-list.lisp	(revision 8392)
+++ /branches/source-tracking-0801/ccl/compiler/lambda-list.lisp	(revision 8393)
@@ -45,4 +45,13 @@
   (getf (%lfun-info fn) 'text))
 
+(defun show-function-constants (f)
+  (dotimes (i (- (uvsize (function-to-function-vector f))
+                 (%function-code-words f)))
+    (format t "~&~d: ~s" i (nth-immediate f (1+ i)))))
+
+(defun show-uvector-contents (uvector)
+  (dotimes (i (uvsize uvector))
+    (format t "~&~D: ~S" i (uvref uvector i))))
+
 ;;; Lambda-list utilities