[Linedit-cvs] CVS update: src/sbcl-repl.lisp

[Nikodemus Siivola]

Update of /project/linedit/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv16818

Modified Files:
	sbcl-repl.lisp 
Log Message:

Date: Sat Nov  1 15:43:38 2003
Author: nsiivola

Index: src/sbcl-repl.lisp
diff -u src/sbcl-repl.lisp:1.4 src/sbcl-repl.lisp:1.5
--- src/sbcl-repl.lisp:1.4	Sat Nov  1 15:35:42 2003
+++ src/sbcl-repl.lisp	Sat Nov  1 15:43:37 2003
@@ -32,6 +32,7 @@
 			       (not (or prompt-fun read-form-fun))))))
 
     (defun uninstall-repl ()
+      "Uninstalls the Linedit REPL, restoring original handlers."
       (enforce-consistent-state)
       (if prompt-fun
 	  (setf sb-int:*repl-prompt-fun* prompt-fun
@@ -42,6 +43,8 @@
       nil)
 
     (defun install-repl (&key wrap-current)
+      "Installs the Linedit at REPL. Original input handlers can be
+preserved with the :WRAP-CURRENT T."
       (enforce-consistent-state)
       (when prompt-fun
 	(warn "INSTALL-REPL failed: Linedit REPL already installed.")