Changeset 5867


Ignore:
Timestamp:
02/18/04 15:32:38 (17 years ago)
Author:
piso
Message:

MACROEXPAND-COMMAND: use PPRINT.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/top-level.lisp

    r5759 r5867  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.25 2004-02-11 00:24:33 piso Exp $
     4;;; $Id: top-level.lisp,v 1.26 2004-02-18 15:32:38 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    9494
    9595(defun macroexpand-command (args)
    96   (format t "~S~%" (macroexpand (read-from-string args)))
     96  (let ((s (with-output-to-string (stream)
     97             (pprint (macroexpand (read-from-string args)) stream))))
     98    (write-string (string-left-trim '(#\return #\linefeed) s)))
    9799  (values))
    98100
Note: See TracChangeset for help on using the changeset viewer.