X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=telnet-server.lisp;h=6be5c68b6a87e9d703657c75d50289d7f570bd09;hp=c285f0e8e68f9a4bf2dfa3d7aa79077b7a6adcf2;hb=30b4f8d91af2bb031e8d4ef7d5a38492739de2bf;hpb=5e5cc3c20a925d8af5de153a118fdaf0792dd7e2 diff --git a/telnet-server.lisp b/telnet-server.lisp index c285f0e..6be5c68 100644 --- a/telnet-server.lisp +++ b/telnet-server.lisp @@ -7,15 +7,16 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: telnet-server.lisp,v 1.1 2002/10/06 13:21:47 kevin Exp $ +;;;; $Id: telnet-server.lisp,v 1.4 2002/10/10 16:23:48 kevin Exp $ ;;;; -;;;; This file, part of Genutils, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Genutils users are granted the rights to distribute and use this software -;;;; as governed by the terms of the GNU General Public License. +;;;; KMRCL users are granted the rights to distribute and use this software +;;;; as governed by the terms of the Lisp Lesser GNU Public License +;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* -(in-package :genutils) +(in-package :kmrcl) (defvar *default-telnet-server-port* 4000) @@ -93,6 +94,6 @@ (defun start-telnet-server (&optional (port *default-telnet-server-port*)) (comm:start-up-server :service port :process-name (format nil "telnet-~d" port) - :function 'gu::make-telnet-stream)) + :function 'kmrcl::make-telnet-stream))