<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>A bit of a pattern is emerging:</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>- no obvious connection to version of CCL</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>- strong connection to version of OS X (Mountain Lion, 10.8.0 and 10.8.1 only)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>- quite inconsistent</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>- can happen when making threads or not servicing events from main thread for some time</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>- more likely to crash on CCL 32 than CCL 64</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>- has a CPU and RealMemory surge manifestation (observe with Activity Monitor) </div><div><br></div><div><br></div><div><br></div><div>Here is a test case. </div><div> <span class="Apple-tab-span" style="white-space:pre"> </span>- Load code and eval (crash-me)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>- observe CCL System memory in Activity Monitor</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>- keep pressing return to OK the modal dialog.</div><div><br></div><div><br></div><div>Things may be fine OR you get some initial hick up with some small CPU/RealMem surges making things slower and slower. In some cases RealMem will just use up all you have and crash CCL after growing to a couple of GB. </div><div><br></div><div>If you have a Mountain Lion machine please let me know if you also get problems with this. </div><div><br></div><div>puzzled, Alex</div><div><br></div><div><br></div><div><br></div><div>____________</div><div><br></div><div><div>;(in-package :xlui)</div><div><br></div><div>;; inilined from Libraries</div><div><br></div><div>(defun NATIVE-STRING (String) "</div><div> Return a native string"</div><div> (#/autorelease (ccl::%make-nsstring String)))</div><div><br></div><div><br></div><div>(defmethod STANDARD-ALERT-DIALOG ((Message string) &key </div><div> (Yes-Text "OK")</div><div> (No-Text nil)</div><div> (Cancel-Text nil)</div><div> (Explanation-Text)</div><div> (Is-Critical nil))</div><div> (let ((Alert (#/init (#/alloc ns:ns-alert))))</div><div> (#/setMessageText: Alert (native-string Message))</div><div> (when Yes-Text (#/addButtonWithTitle: Alert (native-string Yes-Text)))</div><div> (when No-Text (#/addButtonWithTitle: Alert (native-string No-Text)))</div><div> (when Cancel-Text (#/addButtonWithTitle: Alert (native-string Cancel-Text)))</div><div> (when Explanation-Text (#/setInformativeText: Alert (native-string Explanation-Text)))</div><div> (#/setAlertStyle: Alert (if Is-Critical #$NSCriticalAlertStyle #$NSWarningAlertStyle))</div><div> (case (#/runModal Alert)</div><div> (#.#$NSAlertFirstButtonReturn t)</div><div> (#.#$NSAlertSecondButtonReturn nil)</div><div> (#.#$NSAlertThirdButtonReturn (throw :cancel nil)))))</div><div><br></div><div><br></div><div>(defmacro IN-MAIN-THREAD (() &body body)</div><div> (let ((thunk (gensym))</div><div> (done (gensym))</div><div> (result (gensym)))</div><div> `(let ((,done nil)</div><div> (,result nil))</div><div> (flet ((,thunk ()</div><div> (setq ,result (multiple-value-list (progn ,@body))</div><div> ,done t)))</div><div> (gui::execute-in-gui #',thunk)</div><div> (process-wait "Main thread" #'(lambda () ,done))</div><div> (values-list ,result)))))</div><div><br></div><div>;; the actual crasher</div><div><br></div><div><br></div><div>(defun CRASH-ME ()</div><div> (in-main-thread ()</div><div> (dotimes (i 100)</div><div> (standard-alert-dialog "HELLO")</div><div> (ccl::process-run-function</div><div> '(:name "pointless")</div><div> #'(lambda ()</div><div> )))))</div><div><br></div><div>; (crash-me)</div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><br></div><div> </div></div><div><br></div><div><br></div><br><div><div>On Aug 23, 2012, at 1:17 PM, Paul Krueger wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">FWIW, I recently upgraded to Mountain Lion and am NOT seeing any Cocoa-related problems with either the IDE or my own Cocoa interfaces and I've been editing lots of lisp files. But I am still on a pretty old version of CCL: 1.7-dev-r14583M-trunk (DarwinX8664)<div><br></div><div>Paul<br><div><br><div><div>On Aug 23, 2012, at 1:21 PM, Alexander Repenning <<a href="mailto:Alexander.Repenning@colorado.edu">Alexander.Repenning@colorado.edu</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>We are experiencing some errors, e.g., crashing CCL/Cocoa when just editing a file (with Hemlock). So far we have nothing completely reproducible but I wonder:</div><div><br></div><div>- how others experienced new kinds of issues with CCL in OS X Mountain Lion (10.8.0)?</div><div>- is there a certain set of fixes introduced into CCL specifically addressing OS X Mountain Lion. In other words is there some, presumably recent, version of CCL that should be used to avoid trouble?</div><div><br></div><div><br></div><div>Alex</div><br><div>
<div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-size: 12px; "><font face="Helvetica" size="3" style="font: 12.0px Helvetica">Prof. Alexander Repenning</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-size: 12px; "><br class="khtml-block-placeholder"></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-size: 12px; ">University of Colorado</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-size: 12px; ">Computer Science Department</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-size: 12px; ">Boulder, CO 80309-430</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-size: 12px; "><br class="khtml-block-placeholder"></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font-size: 12px; "><font face="Helvetica" size="3" style="font: 12.0px Helvetica">vCard: <a href="http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf">http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf</a></font></div><span class="Apple-style-span" style="font-size: 12px; "><br class="Apple-interchange-newline"></span>
</div>
<br></div>_______________________________________________<br>Openmcl-devel mailing list<br><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br><a href="http://clozure.com/mailman/listinfo/openmcl-devel">http://clozure.com/mailman/listinfo/openmcl-devel</a><br></blockquote></div><br></div></div></div>_______________________________________________<br>Openmcl-devel mailing list<br><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br>http://clozure.com/mailman/listinfo/openmcl-devel<br></blockquote></div><br><div>
<span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">Prof. Alexander Repenning</font></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px">University of Colorado</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Computer Science Department</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Boulder, CO 80309-430</p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">vCard: <a href="http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf">http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf</a></font></p><br class="Apple-interchange-newline"></span></span></span></span>
</div>
<br></body></html>