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

[Nikodemus Siivola]

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

Modified Files:
	main.lisp 
Log Message:

Date: Mon Sep 29 14:20:40 2003
Author: nsiivola

Index: src/main.lisp
diff -u src/main.lisp:1.3 src/main.lisp:1.4
--- src/main.lisp:1.3	Mon Sep 29 09:01:50 2003
+++ src/main.lisp	Mon Sep 29 14:20:40 2003
@@ -21,7 +21,7 @@
 	(set-dispatch-macro-character #\# #\. (constantly (values)) table)
 	(do ((str (apply #'linedit :prompt prompt1 args)
 		  (concat str
-			  (string #\Newline)
+			  (string #\newline)
 			  (apply #'linedit :prompt prompt2 args))))
 	    ((let ((form (handler-case (let ((*readtable* table))
 					 (read-from-string str))