r11859: Canonicalize whitespace

[kmrcl.git] / repl.lisp

diff --git a/repl.lisp b/repl.lisp
index dc173040695c12489ba513db9b265eb49d2f04bc..6848b47497f12f0af5d2cdf44a176b3e11272989 100644 (file)
--- a/repl.lisp
+++ b/repl.lisp
@@ -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)))))
-  
+