mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-31 23:00:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Package names are now fixed

Browse source
This commit is contained in:
jgarcia 2007-10-07 12:35:33 +00:00
parent a564a2ef1b
commit 034693c94b
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
contrib/serve-event/event-test.lisp
View file

@ -3,11 +3,8 @@
;; Test Example
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defpackage "event-test"
(:use "CL" "sockets"))
(in-package "event-test")
(require 'serve-event)
(in-package "SERVE-EVENT")
(defun test-stdin ()
(format t "DOING STDIN~%")
@ -18,3 +15,5 @@
(format t "Entering serve-all-events...~%")(force-output)
(serve-all-events 5)
(format t "Events served~%"))))
(test-stdin)