Ignore:
Timestamp:
Jul 26, 2009, 9:43:55 AM (10 years ago)
Author:
gb
Message:

Load Cocotron dlls from "ccl:cocotron;" after temporarily adding that
directory to PATH.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-runtime.lisp

    r12438 r12454  
    397397       (open-shared-library "/System/Library/Frameworks/Cocoa.framework/Cocoa")
    398398       #+cocotron-objc
    399        (open-shared-library (native-translated-namestring
    400                              (truename "ccl:Cocoa'.1'.0'.dll")))
     399       (let* ((path (getenv "PATH")))
     400         (unwind-protect
     401              (progn
     402                (setenv "PATH"
     403                        (format nil "~a;~a"
     404                                (native-translated-namestring
     405                                 (truename "ccl:cocotron;"))
     406                                path))
     407                (open-shared-library "Foundation.1.0.dll")
     408                (open-shared-library "AppKit.1.0.dll"))
     409           (setenv "PATH" path)))
    401410       ;(#_GetCurrentEventQueue)
    402411       (current-ns-thread)
Note: See TracChangeset for help on using the changeset viewer.