[Openmcl-cvs-notifications] r7577 - /trunk/ccl/cocoa-ide/app-delegate.lisp

[rme at clozure.com]

Author: rme
Date: Wed Oct 31 13:35:49 2007
New Revision: 7577

Log:
Leave out debugging code, duh.

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

Modified: trunk/ccl/cocoa-ide/app-delegate.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/app-delegate.lisp (original)
+++ trunk/ccl/cocoa-ide/app-delegate.lisp Wed Oct 31 13:35:49 2007
@@ -19,7 +19,6 @@
   (let* ((domain (#/standardUserDefaults ns:ns-user-defaults))
 	 (initial-values (cocoa-defaults-initial-values))
 	 (dict (#/mutableCopy initial-values)))
-    (#_NSLog #@"initial-values =3D %@" :id initial-values)
     ;; The lispy def-cocoa-default macro doesn't work with
     ;; Objective-C objects, so initialize them here by hand.
     ;; This is not nice.  We have to do something better.
@@ -38,7 +37,6 @@
 			  ns:ns-archiver
 			  (#/fontWithName:size: ns:ns-font #@"Monaco" 10.0))
 			 #@"listenerOutputFont")
-    (#_NSLog #@"dict =3D %@" :id dict)
     (#/registerDefaults: domain dict)
     (#/release dict)
     (update-cocoa-defaults)))