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