[Openmcl-cvs-notifications] r7483 - /trunk/ccl/cocoa-ide/cocoa.lisp

[rme at clozure.com]

Author: rme
Date: Fri Oct 19 21:01:30 2007
New Revision: 7483

Log:
Use DEFLOADVAR, not DEFVAR, to define *processes-window-controller*.

Modified:
    trunk/ccl/cocoa-ide/cocoa.lisp

Modified: trunk/ccl/cocoa-ide/cocoa.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/ccl/cocoa-ide/cocoa.lisp (original)
+++ trunk/ccl/cocoa-ide/cocoa.lisp Fri Oct 19 21:01:30 2007
@@ -86,7 +86,7 @@
    #@"Listener"
    t))
 =

-(defvar *processes-window-controller* nil)
+(defloadvar *processes-window-controller* nil)
 =

 (objc:defmethod (#/showProcessesWindow: :void) ((self lisp-application-del=
egate)
 						sender)