X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=telnet-server.lisp;h=7520ea32c8538f0242640e1bc2d3b3e1c698cf66;hp=0a794a7ceb174b4ad1f62059901eaf9d34cfaa95;hb=ba354a40a203103a4cf16cd3d21f89f707ba5205;hpb=1245205caa5937842d5d13ec805e15fe0d6a88c2 diff --git a/telnet-server.lisp b/telnet-server.lisp index 0a794a7..7520ea3 100644 --- a/telnet-server.lisp +++ b/telnet-server.lisp @@ -7,12 +7,13 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: telnet-server.lisp,v 1.3 2002/10/06 13:35:30 kevin Exp $ +;;;; $Id: telnet-server.lisp,v 1.5 2002/10/16 03:45:34 kevin Exp $ ;;;; -;;;; This file, part of Kmrcl, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; -;;;; Kmrcl 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 :kmrcl) @@ -70,7 +71,7 @@ (format stream "~&~A> " (package-name *package*)) (force-output stream)) -(defvar *telnet-password* "ksec") +(defvar *telnet-password* "") (defun telnet-on-stream (stream) (unwind-protect