[Openmcl-cvs-notifications] r11684 - /trunk/source/cocoa-ide/start.lisp

[gb at clozure.com]

Author: gb
Date: Wed Feb  4 14:56:45 2009
New Revision: 11684

Log:
Fix kernel-import of open-debug-output.

Modified:
    trunk/source/cocoa-ide/start.lisp

Modified: trunk/source/cocoa-ide/start.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/cocoa-ide/start.lisp (original)
+++ trunk/source/cocoa-ide/start.lisp Wed Feb  4 14:56:45 2009
@@ -202,7 +202,7 @@
                            (flet ((set-lisp-stream-fd (stream fd)
                                     (setf (ccl::ioblock-device (ccl::strea=
m-ioblock stream t))
                                           fd)))
-                             (ff-call (%kernel-import 'target::open-debug-=
output)
+                             (ff-call (ccl::%kernel-import target::kernel-=
import-open-debug-output)
                                       :int parent-socket
                                       :int)
                              (#_dup2 parent-socket 0)