lovesan / doors Goto Github PK

Dear Lovesan,
As I'm just a new lisper,I don't know much about Windows ,such as COM, OLE,and so on.
when read your helloword below examples folder,I don't know how to run it in REPL.
Maybe the helloworld.exe missed I guess.
Looking forward to your guidance。
thanks

I need to use some API which uses Win32 Window Handle for its operation, and found that
your library is great for common lisp users like me.

Can you provide simple window creation code example?

Hello Dmitry, I've stuck in compiling doors\system\osversion.lisp.

It seems to compile and then when loading it enters the debugger with some garbage in backtrace:

Unable to encode character code point 5289 as :ASCII.
[Condition of type BABEL-ENCODINGS:CHARACTER-ENCODING-ERROR]

Restarts:
0: [RETRY] retry the load of C:\Users\aleksandr.vinokurov\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\e\common-lisp\doors\system\osversion.fasl
1: [SKIP] skip loading C:\Users\aleksandr.vinokurov\AppData\Roaming\common-lisp\cache\acl-8.2a-win-x86\e\common-lisp\doors\system\osversion.fasl
2: [TRY-RECOMPILING] Recompile osversion and try loading it again
3: [RETRY] Retry loading component ("doors" "system" "osversion").
4: [ACCEPT] Continue, treating loading component ("doors" "system" "osversion") as having been successful.
5: [RETRY] Retry SLIME REPL evaluation request.
--more--

Backtrace:
0: (ERROR BABEL-ENCODINGS:CHARACTER-ENCODING-ERROR :ENCODING :ASCII :BUFFER ..)
1: (BABEL-ENCODINGS::ENCODING-ERROR 5289 :ASCII "ᒩₜڅ ͠

When i try to perform compile-load, ASDF fails on /com/interface.lisp with this message
Status: Failure Facility: WIN32 Code: 0057 The parameter is incorrect.

I was able to track down the problem to this form:

  #-thread-support
  (let ((clsid-git (load-time-value
                    (guid #x00000323 #x0000 #x0000
                           #xC0 #x00 #x00 #x00 #x00 #x00 #x00 #x46)
                    t))
        (iid-git (load-time-value
                  (guid #x00000146 #x0000 #x0000
                        #xC0 #x00 #x00 #x00 #x00 #x00 #x00 #x46)
                  t)))
    (declare (dynamic-extent clsid-git iid-git))
    (setf *global-interface-table* (external-function-call
                                    "CoCreateInstanceEx"
                                    ((:stdcall ole32)
                                     (hresult rv git)
                                     ((& guid) clsid :aux clsid-git)
                                     (pointer outer :aux &0)
                                     (dword context :aux 1) ;;CLSCTX_INPROC_SERVER
                                     ((& guid) iid :aux iid-git)
                                     ((& pointer :out) git :aux)))))
  (values))