X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=repl.lisp;h=6848b47497f12f0af5d2cdf44a176b3e11272989;hp=2675426cf0322f1ab0e07ae167083d87209ad3d7;hb=14461734c427bae058f4944368b8d7f641b15695;hpb=6e84de6e7bff9079d0b6ba62a3c85d2eb98f2eb4

diff --git a/repl.lisp b/repl.lisp
index 2675426..6848b47 100644
--- a/repl.lisp
+++ b/repl.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: repl.lisp,v 1.1 2003/07/11 06:58:32 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -22,13 +22,13 @@
 
 (defclass repl ()
   ((listener :initarg :listener :accessor listener
-	     :initform nil)))
+             :initform nil)))
 
 (defun make-repl (&key (port +default-repl-server-port+)
-		       announce user-checker remote-host-checker)
-  (make-instance 'listener 
+                       announce user-checker remote-host-checker)
+  (make-instance 'listener
     :port port
-    :base-name "repl"			 
+    :base-name "repl"
     :function 'repl-worker
     :function-args (list user-checker announce)
     :format :text
@@ -53,9 +53,9 @@
       (finish-output conn)
       (setq password (read-socket-line conn))
       (unless (funcall user-checker login password)
-	(format conn "Invalid login~%")
-	(finish-output conn)
-	(return-from repl-worker))))
+        (format conn "Invalid login~%")
+        (finish-output conn)
+        (return-from repl-worker))))
   #+allegro
   (tpl::start-interactive-top-level
    conn
@@ -67,7 +67,7 @@
 
 (defun read-socket-line (stream)
   (string-right-trim-one-char #\return
-			      (read-line stream nil nil)))
+                              (read-line stream nil nil)))
 
 (defun print-prompt (stream)
   (format stream "~&~A> " (package-name *package*))
@@ -75,15 +75,15 @@
 
 (defun repl-on-stream (stream)
   (let ((*standard-input* stream)
-	(*standard-output* stream)
-	(*terminal-io* stream)
-	(*debug-io* stream))
+        (*standard-output* stream)
+        (*terminal-io* stream)
+        (*debug-io* stream))
     #|
     #+sbcl
     (if (and (find-package 'sb-aclrepl)
-	     (fboundp (intern "REPL-FUN" "SB-ACLREPL")))
-	(sb-aclrepl::repl-fun)
-	(%repl))
+             (fboundp (intern "REPL-FUN" "SB-ACLREPL")))
+        (sb-aclrepl::repl-fun)
+        (%repl))
     #-sbcl
     |#
     (%repl)))
@@ -93,4 +93,4 @@
     (print-prompt *standard-output*)
     (let ((form (read *standard-input*)))
       (format *standard-output* "~&~S~%" (eval form)))))
-  
+