mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-24 05:21:20 -08:00
19 lines
623 B
Common Lisp
19 lines
623 B
Common Lisp
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Test Example
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'serve-event)
|
|
(in-package "SERVE-EVENT")
|
|
|
|
(defun test-stdin ()
|
|
(format t "DOING STDIN~%")
|
|
(with-fd-handler (0 :input #'(lambda (fd) (declare (ignore fd))
|
|
(format t "Got data~%")
|
|
(read-char)))
|
|
(loop ;; FIXME: End condition
|
|
(format t "Entering serve-all-events...~%")(force-output)
|
|
(serve-all-events 5)
|
|
(format t "Events served~%"))))
|
|
|
|
(test-stdin)
|