Search
Tuesday, 17th of September 2019, 23:30:45 UTC
23:31:44
stassats
you can use (sb-win32:format-system-message (sb-win32:get-last-error)) to get the errors produced by the win32 functions
23:32:49
asdf_asdf_asdf
Very thanks. I must get "hThisInstance".
23:33:02
asdf_asdf_asdf
(WinMain (make-alien int 0) 1 1 1)
0:06:12
stassats
asdf_asdf_asdf: https://cpy.pt/1Ns7uf98
0:06:39
stassats
your tagWNDCLASSA struct wasn't correctly defined, and it also need to be zero initialized
0:06:59
stassats
and for some reason #x400000 works as hinstance
0:14:48
asdf_asdf_asdf
@stassats; I don't have window.
0:16:33
stassats
are you using 32-bit sbcl?
0:16:36
asdf_asdf_asdf
Hang cursor "Infinite loop".
0:17:23
stassats
just check the return value of all the win32 functions and get the errors with (sb-win32:format-system-message (sb-win32:get-last-error))
0:18:02
stassats
a cursor is already something
0:20:05
asdf_asdf_asdf
I can't found specify file - error.
0:38:27
stassats
i changed the tagWNDCLASSA struct for x86-64
0:39:04
stassats
in lieu of finding the correct definition, just getting the right offsets
0:40:09
stassats
change them to (* t) from long-long, and replace the 0s with NILs
0:41:21
asdf_asdf_asdf
https://cpy.pt/wQZhq9eK
0:41:38
asdf_asdf_asdf
Your code is for architecture x64?
0:41:45
asdf_asdf_asdf
My SBCL is x86.
0:42:16
stassats
replace unsigned-long-long with (* t)
0:46:09
stassats
asdf_asdf_asdf: https://cpy.pt/NtxFeF31
0:51:21
asdf_asdf_asdf
stassats; very, very thank You for help. It works.
0:51:54
asdf_asdf_asdf
But in inferior-lisp not works, only in console Windows.
0:53:32
asdf_asdf_asdf
Why in inferior-lisp, it catching I/O in Windows?
1:02:01
asdf_asdf_asdf
Thank You, again.
Wednesday, 18th of September 2019, 11:30:45 UTC