projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of ssh://git.b9.com/home/gitpub/kmrcl
[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
(defclass repl ()
((listener :initarg :listener :accessor listener
- :initform nil)))
+
:initform nil)))
(defun make-repl (&key (port +default-repl-server-port+)
(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
:port port
- :base-name "repl"
+ :base-name "repl"
:function 'repl-worker
:function-args (list user-checker announce)
:format :text
: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)
(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
#+allegro
(tpl::start-interactive-top-level
conn
@@
-67,7
+67,7
@@
(defun read-socket-line (stream)
(string-right-trim-one-char #\return
(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*))
(defun print-prompt (stream)
(format stream "~&~A> " (package-name *package*))
@@
-75,15
+75,15
@@
(defun repl-on-stream (stream)
(let ((*standard-input* stream)
(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)
#|
#+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)))
#-sbcl
|#
(%repl)))
@@
-93,4
+93,4
@@
(print-prompt *standard-output*)
(let ((form (read *standard-input*)))
(format *standard-output* "~&~S~%" (eval form)))))
(print-prompt *standard-output*)
(let ((form (read *standard-input*)))
(format *standard-output* "~&~S~%" (eval form)))))
-
+