Changeset 24652 for lang/commonlisp

Show
Ignore:
Timestamp:
11/22/08 20:59:23 (5 years ago)
Author:
quek
Message:

require -> asdf:oos

Location:
lang/commonlisp/cl-win32ole/trunk/test
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/commonlisp/cl-win32ole/trunk/test/test-api.lisp

    r10948 r24652  
    11(eval-when (:compile-toplevel :load-toplevel :execute) 
    2   (require :cl-win32ole) 
    3   (require :fiveam)) 
     2  (asdf:oos 'asdf:load-op :cl-win32ole) 
     3  (asdf:oos 'asdf:load-op :fiveam)) 
    44 
    55(in-package :cl-win32ole) 

  • lang/commonlisp/cl-win32ole/trunk/test/test-sys.lisp

    r10948 r24652  
    11(eval-when (:compile-toplevel :load-toplevel :execute) 
    2   (require :cl-win32ole-sys) 
    3   (require :fiveam)) 
     2  (asdf:oos 'asdf:load-op :cl-win32ole-sys) 
     3  (asdf:oos 'asdf:load-op :fiveam)) 
    44 
    55(in-package :cl-win32ole-sys) 
    … …  
    3333  ) 
    3434 
    35 (5am:test type-lib 
    36   (let* ((dispatch (create-instance "WScript.Shell")) 
    37          (type-info (dispatch-get-type-info dispatch)) 
    38          (type-lib (type-info-get-containing-type-lib type-info))) 
    39     (unwind-protect 
    40          (progn 
    41            ) 
    42       (unknown-release type-lib) 
    43       (type-info-add-ref type-info) 
    44       (dispatch-add-ref dispatch) 
    45       ))) 
     35;;(5am:test type-lib 
     36;;  (let* ((dispatch (create-instance "WScript.Shell")) 
     37;;         (type-info (dispatch-get-type-info dispatch)) 
     38;;         (type-lib (type-info-get-containing-type-lib type-info))) 
     39;;    (unwind-protect 
     40;;         (progn 
     41;;           ) 
     42;;      (unknown-release type-lib) 
     43;;      (type-info-add-ref type-info) 
     44;;      (dispatch-add-ref dispatch) 
     45;;      ))) 
    4646 
    4747