Changeset 24647 for lang/commonlisp

Timestamp:

11/22/08 20:29:18 (5 years ago)

Author:

quek

Message:

remove example1, now dispatch is not funcallable-object.

Files:

• lang/commonlisp/cl-win32ole/trunk/example/ie.lisp (modified) (2 diffs)

lang/commonlisp/cl-win32ole/trunk/example/ie.lisp

@@ -1 +1 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (require :cl-win32ole)
+  (asdf:oos 'asdf:load-op :cl-win32ole)
   (use-package :cl-win32ole))
-
-(defun ie-example1 ()
-  (let ((ie (create-object "InternetExplorer.Application")))
-    (with-slots (visible busy document) ie
-      (setf visible t)
-      (funcall ie :navigate "http://sbcl.sourceforge.net/")
-      (loop while busy
-         do (sleep 0.5))
-      (format t "document title is \"~a\".~%" (slot-value document :title))
-      (sleep 3))
-    (funcall ie :quit)))
 
 (defun ie-example2 ()
@@ -31 +20 @@
       (loop while busy do (sleep 0.5))
       (with-slots (all) document
-        (p (invoke all :tags "A")))))
-  )
+        (print (invoke all :tags "A")))
+      (ole ie :quit))))