From 034693c94b95f58672c72bc8677c7589f9694bf1 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Sun, 7 Oct 2007 12:35:33 +0000
Subject: [PATCH] Package names are now fixed

---
 contrib/serve-event/event-test.lisp | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/contrib/serve-event/event-test.lisp b/contrib/serve-event/event-test.lisp
index baa72584f..d80261f12 100644
--- a/contrib/serve-event/event-test.lisp
+++ b/contrib/serve-event/event-test.lisp
@@ -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)