[Openmcl-cvs-notifications] r11214 - /trunk/source/cocoa-ide/app-delegate.lisp

[gb at clozure.com]

Author: gb
Date: Thu Oct 23 17:37:03 2008
New Revision: 11214

Log:
Avoid a warning when referencing *STANDALONE-COCOA-IDE*.

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

Modified: trunk/source/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/source/cocoa-ide/app-delegate.lisp (original)
+++ trunk/source/cocoa-ide/app-delegate.lisp Thu Oct 23 17:37:03 2008
@@ -19,6 +19,7 @@
   (let* ((domain (#/standardUserDefaults ns:ns-user-defaults))
 	 (initial-values (cocoa-defaults-initial-values))
 	 (dict (#/mutableCopy initial-values)))
+    (declare (special *standalone-cocoa-ide*))
     (#/registerDefaults: domain dict)
     (#/release dict)
     (update-cocoa-defaults)