/[cmucl]/src/code/serve-event.lisp
ViewVC logotype

Diff of /src/code/serve-event.lisp

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

revision 1.16 by ram, Fri Jul 17 18:16:26 1992 UTC revision 1.17 by ram, Wed Sep 9 17:45:14 1992 UTC
# Line 317  Line 317 
317                            (and (= sec stop-sec) (>= usec stop-usec)))                            (and (= sec stop-sec) (>= usec stop-usec)))
318                    (return nil))                    (return nil))
319                  (setq to-sec (- stop-sec sec))                  (setq to-sec (- stop-sec sec))
320                  (setq to-usec (- stop-usec usec))))))))))                  (cond ((> usec stop-usec)
321                           (decf to-sec)
322                           (setq to-usec (- (+ stop-usec 1000000) usec)))
323                          (t
324                           (setq to-usec (- stop-usec usec))))))))))))
325    
326    
327  (defvar *display-event-handlers* nil  (defvar *display-event-handlers* nil

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5