Changeset 290

Timestamp:

Jan 13, 2004, 5:11:12 PM (21 years ago)

Author:

Gary Byers

Message:

DISASSEMBLE's output should go to *STANDARD-OUTPUT*.

File:

• trunk/ccl/compiler/PPC/ppc-disassemble.lisp (modified) (1 diff)

trunk/ccl/compiler/PPC/ppc-disassemble.lisp

@@ -311 +311 @@
 
 
-(defun ppc-Xdisassemble (fn-vector &key (for-lap nil) (stream *debug-io*))
+(defun ppc-Xdisassemble (fn-vector &key (for-lap nil) (stream *standard-output*))
   (print-ppc-instructions stream (function-to-dll-header fn-vector) 
                           (if for-lap (list (uvref fn-vector (- (uvsize fn-vector) 2)))))