Changeset 4213

Timestamp:

10/06/03 01:03:57 (19 years ago)

Author:

piso

Message:

MACROEXPAND-COMMAND

File:

• trunk/j/src/org/armedbear/lisp/top-level.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/top-level.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: top-level.lisp,v 1.6 2003-10-05 17:57:24 piso Exp $
+;;; $Id: top-level.lisp,v 1.7 2003-10-06 01:03:57 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -86 +86 @@
   (let ((obj (eval (read-from-string args))))
     (describe obj)))
+
+(defun macroexpand-command (args)
+  (format t "~S~%" (macroexpand (read-from-string args)))
+  (values))
 
 (defun package-command (args)
@@ -166 +170 @@
     ("help" 2 help-command "print this help")
     ("ld" 2 ld-command "load a file")
+    ("macroexpand" 2 macroexpand-command "macroexpand an expression")
     ("package" 2 package-command "change current package")
     ("pwd" 3 pwd-command "print current directory")