From: Yaroslav K. <kav...@je...> - 2006-01-03 17:20:10
|
Sam Steingold wrote: > wfm: > > [11]> (let ((win (reset-screen-size))) (when win > (format t "Set readline screen size to ~Ax~A~%" > (cdr win) (car win)))) > Set readline screen size to 80x95 I understand nothing: $ ./clisp -K full -norc -q ;; first attempt [1]> (multiple-value-list (WIN32:GetConsoleScreenBufferInfo (WIN32:GetStdHandle WIN32:STD_OUTPUT_HANDLE))) ** - Continuable Error FFI::FOREIGN-CALL-OUT: нет динамического объекта "GetProcessId" в библиотеке "kernel32.dll" Если вы продолжите (введя 'continue'): Skip foreign object creation Имеются следующие варианты продолжения: ABORT :R1 ABORT Break 1 [2]> :a ;; second attempt [3]> (multiple-value-list (WIN32:GetConsoleScreenBufferInfo (WIN32:GetStdHandle WIN32:STD_OUTPUT_HANDLE))) (T #S(WIN32:CONSOLE_SCREEN_BUFFER_INFO :|DWsIZE| #S(WIN32:COORD :|x| 100 :|y| 5000) :|DWcURSORpOSITION| #S(WIN32:COORD :|x| 0 :|y| 97) :|WaTTRIBUTES| 7 :|SRwINDOW| #S(WIN32:SMALL_RECT :|lEFT| 0 :|tOP| 63 :|rIGHT| 99 :|bOTTOM| 97) :|DWmAXIMUMwINDOWsIZE| #S(WIN32:COORD :|x| 100 :|y| 62))) [4]> Thanks! -- WBR, Yaroslav Kavenchuk. |