Ignore:
Timestamp:
Sep 20, 2010, 2:57:25 AM (9 years ago)
Author:
gb
Message:

l1-boot-2.lisp:
In INITIALIZE-INTERACTIVE-STREAMS: ensure that *STDOUT*, *STDERR*, and

(if it's disjoint) *TERMINAL-OUTPUT* are auto-flushed.

linux-files.lisp:
#+windows-target Define GET-LAST-WINDOWS-ERROR, so that #_GetLastError
can be called from code that may have to run before the FFI is
initialized.
When prompting the user to type :Y, force output. (This may run on the
housekeeping thread, so that output may not get autoflushed.)

l0-cfm-support.lisp: if GET-SHARED-LIBRARY fails, signal the error on
the calling thread (even if the #_dlopen/whatever happens on the initial
thread); fixes ticket:742

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r14258 r14288  
    890890
    891891#+windows-target
    892 (defun %windows-error-string (error-number) 
     892(progn
     893(defun get-last-windows-error ()
     894  (#_GetLastError()))
     895
     896(defun %windows-error-string (error-number)
    893897  (rlet ((pbuffer :address (%null-ptr)))
    894898    (if (eql 0
     
    908912        (#_LocalFree p)
    909913        q))))
     914)
    910915       
    911916                     
     
    19451950        (format t "~%~%;;;~%;;; ~a requires access to ~a~%;;; Type (:y ~D) to yield control to this thread.~%;;;~%"
    19461951                *current-process* (shared-resource-name resource)
    1947                 (process-serial-number *current-process*)))
     1952                (process-serial-number *current-process*))
     1953        (force-output t))
    19481954      (with-lock-grabbed ((shared-resource-lock resource))
    19491955        (append-dll-node request (shared-resource-requestors resource)))
Note: See TracChangeset for help on using the changeset viewer.