[Linedit-cvs] CVS src

[nsiivola]

Update of /project/linedit/cvsroot/src
In directory clnet:/tmp/cvs-serv2571

Modified Files:
	smart-terminal.lisp terminfo.lisp version.lisp-expr 
Log Message:
Lispworks patch #2 by Lui Fungsin

--- /project/linedit/cvsroot/src/smart-terminal.lisp	2004/03/05 18:21:36	1.17
+++ /project/linedit/cvsroot/src/smart-terminal.lisp	2007/03/18 01:47:36	1.18
@@ -73,7 +73,11 @@
   (ti:tputs ti:column-address col))
 
 (defmethod display ((backend smart-terminal) &key prompt line point markup)
-  (let* ((*terminal-io* *standard-output*)
+  (let* (;; SBCL and CMUCL traditionally point *terminal-io* to /dev/tty,
+         ;; and we do output on it assuming it goes to STDOUT. Binding
+         ;; *terminal-io* is unportable, so do it only when needed.
+         #+(or sbcl cmu)
+           (*terminal-io* *standard-output*)
 	 (columns (backend-columns backend))
 	 (old-markup (old-markup backend))
 	 (old-point (old-point backend))
--- /project/linedit/cvsroot/src/terminfo.lisp	2004/03/01 13:27:42	1.8
+++ /project/linedit/cvsroot/src/terminfo.lisp	2007/03/18 01:47:36	1.9
@@ -22,7 +22,7 @@
 ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
 ;;; USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
 ;;; DAMAGE.
-#+CMU (ext:file-comment "$Header: /project/linedit/cvsroot/src/terminfo.lisp,v 1.8 2004/03/01 13:27:42 nsiivola Exp $")
+#+CMU (ext:file-comment "$Header: /project/linedit/cvsroot/src/terminfo.lisp,v 1.9 2007/03/18 01:47:36 nsiivola Exp $")
 
 (in-package "COMMON-LISP-USER")
 
@@ -979,6 +979,8 @@
 				      (sys:getenv "TERM")
 				      #+SBCL
 				      (sb-ext:posix-getenv "TERM")
+                                      #+Lispworks
+                                      (lispworks:environment-variable "TERM")
 				      #| if all else fails |#
 				      "dumb"))))
 
--- /project/linedit/cvsroot/src/version.lisp-expr	2007/03/18 01:40:35	1.17
+++ /project/linedit/cvsroot/src/version.lisp-expr	2007/03/18 01:47:36	1.18
@@ -1 +1 @@
-0.15.14
+0.15.15