Changeset 4213


Ignore:
Timestamp:
10/06/03 01:03:57 (19 years ago)
Author:
piso
Message:

MACROEXPAND-COMMAND

File:
1 edited

Legend:

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

    r4202 r4213  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.6 2003-10-05 17:57:24 piso Exp $
     4;;; $Id: top-level.lisp,v 1.7 2003-10-06 01:03:57 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    8686  (let ((obj (eval (read-from-string args))))
    8787    (describe obj)))
     88
     89(defun macroexpand-command (args)
     90  (format t "~S~%" (macroexpand (read-from-string args)))
     91  (values))
    8892
    8993(defun package-command (args)
     
    166170    ("help" 2 help-command "print this help")
    167171    ("ld" 2 ld-command "load a file")
     172    ("macroexpand" 2 macroexpand-command "macroexpand an expression")
    168173    ("package" 2 package-command "change current package")
    169174    ("pwd" 3 pwd-command "print current directory")
Note: See TracChangeset for help on using the changeset viewer.