Ignore:
Timestamp:
10/06/03 15:20:46 (19 years ago)
Author:
piso
Message:

HELP-COMMAND

File:
1 edited

Legend:

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

    r4213 r4224  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.7 2003-10-06 01:03:57 piso Exp $
     4;;; $Id: top-level.lisp,v 1.8 2003-10-06 15:20:46 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    153153
    154154(defun help-command (ignored)
    155   (format t "COMMAND     ABBR DESCRIPTION~%")
     155  (format t "~%  COMMAND     ABBR DESCRIPTION~%")
    156156  (dolist (entry *command-table*)
    157     (format t "~A~A~A~%"
     157    (format t "  ~A~A~A~%"
    158158            (pad (entry-name entry) 12)
    159159            (pad (entry-abbr entry) 5)
    160160            (entry-help entry)
    161             )))
     161            ))
     162  (format t "~%Commands must be prefixed by the command character, which is '~A' by default.~%~%"
     163          *command-char*))
    162164
    163165(defparameter *command-table*
Note: See TracChangeset for help on using the changeset viewer.