Index: /branches/event-ide/ccl/examples/cocoa/currency-converter/HOWTO.html =================================================================== --- /branches/event-ide/ccl/examples/cocoa/currency-converter/HOWTO.html (revision 7927) +++ /branches/event-ide/ccl/examples/cocoa/currency-converter/HOWTO.html (revision 7928) @@ -17,5 +17,5 @@ href="http://developer.apple.com/documentation/Cocoa/Conceptual/ObjCTutorial/index.html"> Currency Converter example
- with OpenMCL + with Clozure CL @@ -31,6 +31,7 @@
-

This HOWTO guide explains how to use OpenMCL to create a - Cocoa application that is functionally identical to Apple's +

This HOWTO guide explains how to use Clozure CL (formerly + OpenMCL) to create a Cocoa application that is functionally + identical to Apple's @@ -38,5 +39,5 @@ difference between Apple's example and this one is that this one is implemented in Common Lisp instead of Objective C. It - uses OpenMCL's Objective-C bridge to provide communication + uses Clozure CL's Objective-C bridge to provide communication between the Lisp code that you write and Apple's Cocoa frameworks. The resulting application looks and acts just @@ -47,10 +48,10 @@ Apple's document handy for reference, and we just describe the specific steps needed to build the example using - Apple's InterfaceBuilder application and OpenMCL.

+ Apple's InterfaceBuilder application and Clozure CL.

-

The current version of the OpenMCL Objective-C bridge +

The current version of the Clozure CL Objective-C bridge includes code that was formerly distributed separately as the "Bosco" application framework. Because that framework has been - integrated with OpenMCL proper, it no longer exists as a + integrated with Clozure CL proper, it no longer exists as a separate project. "Bosco" now names only the decorative rodent at the top of this page.

@@ -63,7 +64,7 @@

It will be helpful in understanding this example if you can - easily refer to Apple's - Currency Converter example while working through this + easily refer to + Apple's + Currency Converter tutorial while working through this HOWTO. You might consider opening a separate window or tab, and keeping the Apple example handy while you work.

@@ -74,16 +75,16 @@ - Model-View-Controller paradigm that the Apple example + Model-View-Controller paradigm that the Apple tutorial uses. If you are new to Cocoa programming, or if you are not familiar with how it uses the Model-View-Controller paradigm, - it's probably a good idea to read through the Apple example - in full, paying special attention to the - Model-View-Controller section. Once you've done that, keep - the Apple pages handy in a window for easy reference.

+ it's probably a good idea to read through the Apple example in + full, paying special attention to the Model-View-Controller + section. Once you've done that, keep the Apple pages handy in + a window for easy reference.

This Common Lisp version of the Currency Converter example uses Apple's InterfaceBuilder application to build a window and main menu, and then uses Common Lisp code to load and operate - that user interface. The Common Lisp code relies on OpenMCL's + that user interface. The Common Lisp code relies on Clozure CL's Objective-C bridge to provide communication between the running Lisp code and Apple's Cocoa frameworks. Once the code is @@ -102,10 +103,9 @@

Index: /branches/event-ide/ccl/level-1/l1-application.lisp =================================================================== --- /branches/event-ide/ccl/level-1/l1-application.lisp (revision 7927) +++ /branches/event-ide/ccl/level-1/l1-application.lisp (revision 7928) @@ -283,12 +283,13 @@ :class 'tty-listener :process initial-listener-process)))) - (%set-toplevel #'(lambda () - (with-standard-abort-handling nil - (loop - (%nanosleep *periodic-task-seconds* *periodic-task-nanoseconds*) - (housekeeping))))) + (%set-toplevel #'housekeeping-loop) (toplevel)) - +(defun housekeeping-loop () + (with-standard-abort-handling nil + (loop + (%nanosleep *periodic-task-seconds* *periodic-task-nanoseconds*) + (housekeeping)))) + (defmethod application-init-file ((app lisp-development-system)) Index: /branches/event-ide/ccl/level-1/l1-boot-lds.lisp =================================================================== --- /branches/event-ide/ccl/level-1/l1-boot-lds.lisp (revision 7927) +++ /branches/event-ide/ccl/level-1/l1-boot-lds.lisp (revision 7928) @@ -79,4 +79,5 @@ (value-stack-size *default-value-stack-size*) (temp-stack-size *default-temp-stack-size*) + (echoing t) (process)) (let ((p (if (typep process class) @@ -92,6 +93,9 @@ (process-preset p #'(lambda () (let ((*terminal-io* - (make-echoing-two-way-stream - input-stream output-stream))) + (if echoing + (make-echoing-two-way-stream + input-stream output-stream) + (make-two-way-stream + input-stream output-stream)))) (unwind-protect (progn Index: /branches/event-ide/ccl/lisp-kernel/lisp-debug.c =================================================================== --- /branches/event-ide/ccl/lisp-kernel/lisp-debug.c (revision 7927) +++ /branches/event-ide/ccl/lisp-kernel/lisp-debug.c (revision 7928) @@ -876,5 +876,5 @@ if (xpPC(xp) == (natural)_sigtramp) { - xp = (ExceptionInformation *) xpGPR(xp,os_major_version < 9 ? REG_RSI :REG_RCX); + xp = (ExceptionInformation *) xpGPR(xp, REG_R8); fprintf(stderr, "Exception raised at _sigtramp; using context passed to _sigtramp. Raw register values (R) may be more interesting then lisp values or lisp backtrace\n"); }