Changeset 4224 for trunk/j/src/org/armedbear/lisp/top-level.lisp

Timestamp:

10/06/03 15:20:46 (20 years ago)

Author:

piso

Message:

HELP-COMMAND

File:

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

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: top-level.lisp,v 1.7 2003-10-06 01:03:57 piso Exp $
+;;; $Id: top-level.lisp,v 1.8 2003-10-06 15:20:46 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -153 +153 @@
 
 (defun help-command (ignored)
-  (format t "COMMAND     ABBR DESCRIPTION~%")
+  (format t "~%  COMMAND     ABBR DESCRIPTION~%")
   (dolist (entry *command-table*)
-    (format t "~A~A~A~%"
+    (format t "  ~A~A~A~%"
             (pad (entry-name entry) 12)
             (pad (entry-abbr entry) 5)
             (entry-help entry)
-            )))
+            ))
+  (format t "~%Commands must be prefixed by the command character, which is '~A' by default.~%~%"
+          *command-char*))
 
 (defparameter *command-table*