[rdnzl-cvs] CVS RDNZL/examples

[eweitz]

Update of /project/rdnzl/cvsroot/RDNZL/examples
In directory clnet:/tmp/cvs-serv27065/examples

Modified Files:
	apropos.lisp apropos2.lisp 
Log Message:
release 0.10.0 (ECL support)


--- /project/rdnzl/cvsroot/RDNZL/examples/apropos.lisp	2006/02/01 12:02:22	1.3
+++ /project/rdnzl/cvsroot/RDNZL/examples/apropos.lisp	2006/06/12 08:47:10	1.4
@@ -1,5 +1,5 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: RDNZL; Base: 10 -*-
-;;; $Header: /project/rdnzl/cvsroot/RDNZL/examples/apropos.lisp,v 1.3 2006/02/01 12:02:22 eweitz Exp $
+;;; $Header: /project/rdnzl/cvsroot/RDNZL/examples/apropos.lisp,v 1.4 2006/06/12 08:47:10 eweitz Exp $
 
 ;;; Copyright (c) 2004-2006, Dr. Edmund Weitz.  All rights reserved.
 
@@ -61,7 +61,7 @@
                   (with-output-to-string (*standard-output*)
                     (apropos input-string)))
                 (list-box [$listBox (cast [%Parent object] "AproposControl")]))
-            #+:cormanlisp (setq apropos-text (lf-to-crlf apropos-text))
+            #+(:cormanlisp :ecl) (setq apropos-text (lf-to-crlf apropos-text))
             (setf [%Text list-box] apropos-text)
             (copy-to-clipboard list-box)
             (unless message-shown
--- /project/rdnzl/cvsroot/RDNZL/examples/apropos2.lisp	2006/02/01 12:02:22	1.3
+++ /project/rdnzl/cvsroot/RDNZL/examples/apropos2.lisp	2006/06/12 08:47:10	1.4
@@ -1,5 +1,5 @@
 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: RDNZL; Base: 10 -*-
-;;; $Header: /project/rdnzl/cvsroot/RDNZL/examples/apropos2.lisp,v 1.3 2006/02/01 12:02:22 eweitz Exp $
+;;; $Header: /project/rdnzl/cvsroot/RDNZL/examples/apropos2.lisp,v 1.4 2006/06/12 08:47:10 eweitz Exp $
 
 ;;; Copyright (c) 2004-2006, Dr. Edmund Weitz.  All rights reserved.
 
@@ -174,7 +174,7 @@
                   (with-output-to-string (*standard-output*)
                     (apropos input-string)))
                 (list-box (list-box (cast (parent object) "AproposControl"))))
-            #+:cormanlisp (setq apropos-text (lf-to-crlf apropos-text))
+            #+(or :cormanlisp :ecl) (setq apropos-text (lf-to-crlf apropos-text))
             (setf (text list-box) apropos-text)
             (copy-to-clipboard list-box)
             (unless message-shown