Changeset 253 for trunk/lisp/lmio1/escape.lisp

Timestamp:

08/18/11 08:08:01 (22 months ago)

Author:

rjs

Message:

Update.

Files:

• trunk/lisp/lmio1/escape.lisp (modified) (1 diff)

trunk/lisp/lmio1/escape.lisp

@@ -138 +138 @@
                             'FULL-SCREEN))
   (FORMAT STREAM "Documentation of ESC keys:~%")
-  (DOLIST (ITEM (REVERSE KBD-ESC-REPOSITORY))
+  (SETQ KBD-ESC-REPOSITORY (SORTCAR KBD-ESC-REPOSITORY #'CHAR-LESSP))
+  (DOLIST (ITEM KBD-ESC-REPOSITORY)
     (KBD-ESC-PRINT-DOCUMENTATION STREAM ITEM))
   (FORMAT STREAM "~2%Type a space to flush:")