(defun start-telnet-server (&optional (port *default-telnet-server-port*))
(comm:start-up-server :service port
:process-name (format nil "telnet-~d" port)
(defun start-telnet-server (&optional (port *default-telnet-server-port*))
(comm:start-up-server :service port
:process-name (format nil "telnet-~d" port)