/[cmucl]/src/clx/input.lisp
ViewVC logotype

Diff of /src/clx/input.lisp

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

revision 1.9 by pw, Wed Apr 10 17:18:53 2002 UTC revision 1.9.2.1 by rtoy, Sat May 22 11:54:05 2004 UTC
# Line 1196  Line 1196 
1196    
1197  (defun make-event-handlers (&key (type 'array) default)  (defun make-event-handlers (&key (type 'array) default)
1198    (declare (type t type)                        ;Sequence type specifier    (declare (type t type)                        ;Sequence type specifier
1199             (type function default)             (type (or null function) default)
1200             (clx-values sequence))                       ;Default handler for initial content             (clx-values sequence))                       ;Default handler for initial content
1201    ;; Makes a handler sequence suitable for process-event    ;; Makes a handler sequence suitable for process-event
1202    (make-sequence type *max-events* :initial-element default))    (make-sequence type *max-events* :initial-element default))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.2.1

  ViewVC Help
Powered by ViewVC 1.1.5