Changeset 8393

Timestamp:

Feb 1, 2008, 8:47:39 PM (17 years ago)

Author:

marco baringer

Message:

Added ccl::show-function-constants and show-uvector-contents (both of these will be used by slime at some point)

File:

• branches/source-tracking-0801/ccl/compiler/lambda-list.lisp (modified) (1 diff)

branches/source-tracking-0801/ccl/compiler/lambda-list.lisp

@@ -45 +45 @@
   (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