Changeset 12707


Ignore:
Timestamp:
Aug 27, 2009, 2:37:29 PM (15 years ago)
Author:
Gary Palter
Message:

Better test

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/source/cocoa-ide/cocoa-window.lisp

    r12706 r12707  
    125125#+windows-target
    126126(defun connect-to-console-window (process)
    127   (when (#_AllocConsole)
     127  (#_AllocConsole)
     128  (when (not (%null-ptr-p (#_GetStdHandle #$STD_OUTPUT_HANDLE)))
    128129    (flet ((set-lisp-stream-fd (stream fd)
    129130             (setf (ccl::ioblock-device (ccl::stream-ioblock stream t)) fd)))
Note: See TracChangeset for help on using the changeset viewer.