X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=listener.lisp;h=36d7fd3e94b018fc3af53d21137ee9604502c2d4;hb=f02806a9c747318814e3b46520d2ceebd6031488;hp=a757cc1d73541402f8e24e7c37f152e019df3c50;hpb=8bbcf109b6cbdfd4c92fe06cc181c56f408b8b82;p=kmrcl.git

diff --git a/listener.lisp b/listener.lisp
index a757cc1..36d7fd3 100644
--- a/listener.lisp
+++ b/listener.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Jun 2003
 ;;;;
-;;;; $Id: listener.lisp,v 1.6 2003/07/13 04:53:32 kevin Exp $
+;;;; $Id: listener.lisp,v 1.7 2003/07/16 16:01:37 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package #:kmrcl)
@@ -125,10 +125,10 @@
 ;; Low-level functions
 
 (defun next-server-name (base-name)
-  (format nil "~A-socket-server-~D" base-name (incf *listener-count*))) 
+  (format nil "~D-~A-socket-server" (incf *listener-count*) base-name)) 
 
 (defun next-worker-name (base-name)
-  (format nil "~A-worker-~D" base-name (incf *worker-count*)))
+  (format nil "~D-~A-worker"  (incf *worker-count*) base-name))
 
 (defun make-socket-server (listener)
   #+lispworks