Changeset 8402

Timestamp:

Feb 3, 2008, 6:12:29 AM (17 years ago)

Author:

Gary Byers

Message:

SHOW-FUNTION-CONSTANTS for PPC.

File:

• trunk/source/compiler/PPC/ppc2.lisp (modified) (1 diff)

trunk/source/compiler/PPC/ppc2.lisp

@@ -9059 +9059 @@
                              (list nil (list arg))))))))
 
+(defun show-function-constants (f)
+  (cond ((typep f 'function)
+         (do* ((i 0 j)
+               (n (uvsize f))
+               (j 1 (1+ j)))
+              ((= j n))
+           (format t "~&~d: ~s" i (uvref f j))))
+        (t (report-bad-arg f 'function))))
+
+        
 ;------