[rdnzl-cvs] r13 - in trunk/rdnzl: . examples

[ikvello at common-lisp.net]

Author: ikvello
Date: Tue May 13 12:08:05 2008
New Revision: 13

Modified:
   trunk/rdnzl/RDNZL.dll
   trunk/rdnzl/examples/excel.lisp
Log:
RDNZL.dll compiled with recent changes and examples updated

Modified: trunk/rdnzl/RDNZL.dll
==============================================================================
Binary files. No diff available.

Modified: trunk/rdnzl/examples/excel.lisp
==============================================================================
--- trunk/rdnzl/examples/excel.lisp	(original)
+++ trunk/rdnzl/examples/excel.lisp	Tue May 13 12:08:05 2008
@@ -78,16 +78,15 @@
 (defun get-excel-range (file-name range)
   (let* ((app (new "ApplicationClass"))
          (workbooks [%Workbooks app])
-         (workbook (cast [Open workbooks file-name
+         (workbook [Open workbooks file-name
                                +missing+ nil +missing+
                                +missing+ +missing+ +missing+
                                +missing+ +missing+ +missing+
                                +missing+ +missing+ +missing+
-                               +missing+ +missing+]
-                         "WorkbookClass"))
+                               +missing+ +missing+])
          (worksheets [%Worksheets workbook])
-         (sheet (cast [get_Item worksheets 1] "Worksheet"))
-         (range [get_Range sheet range +missing+]))
+         (sheet [%Item worksheets 1])
+         (range [%Range sheet range +missing+]))
     (prog1 (cast [%Value2 [%Cells range]] "System.Array")
       [Quit app])))