/[cmucl]/src/hemlock/key-event.lisp
ViewVC logotype

Diff of /src/hemlock/key-event.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.10 by ram, Mon Sep 7 16:50:35 1992 UTC revision 1.1.1.11 by ram, Mon Feb 22 14:36:24 1993 UTC
# Line 674  Line 674 
674    "This prints key, a key-event or vector of key-events, to stream in a    "This prints key, a key-event or vector of key-events, to stream in a
675     user-expected fashion.  Long-names-p indicates whether modifiers should     user-expected fashion.  Long-names-p indicates whether modifiers should
676     print with their long or short name."     print with their long or short name."
677      (declare (type (or vector key-event) key) (type stream stream))
678    (etypecase key    (etypecase key
679      (structure (print-pretty-key-event key stream long-names-p))      (key-event (print-pretty-key-event key stream long-names-p))
680      (vector      (vector
681       (let ((length-1 (1- (length key))))       (let ((length-1 (1- (length key))))
682         (dotimes (i (length key))         (dotimes (i (length key))

Legend:
Removed from v.1.1.1.10  
changed lines
  Added in v.1.1.1.11

  ViewVC Help
Powered by ViewVC 1.1.5