[Openmcl-cvs-notifications] r16242 - /trunk/source/cocoa-ide/cocoa-editor.lisp

gz at clozure.com gz at clozure.com
Thu Sep 25 17:17:04 UTC 2014


Author: gz
Date: Thu Sep 25 17:17:04 2014
New Revision: 16242

Log:
In cocoa-edit (i.e. cl:ed) ensure file exists before entering gui context.

Modified:
    trunk/source/cocoa-ide/cocoa-editor.lisp

Modified: trunk/source/cocoa-ide/cocoa-editor.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/cocoa-editor.lisp	(original)
+++ trunk/source/cocoa-ide/cocoa-editor.lisp	Thu Sep 25 17:17:04 2014
@@ -3671,6 +3671,8 @@
            (unless (probe-file arg)
              (let ((lpath (merge-pathnames arg *.lisp-pathname*)))
                (when (probe-file lpath) (setq arg lpath)))))
+         ;; Avoid taking the error inside gui.
+         (truename arg)
          (execute-in-gui #'(lambda () (find-or-make-hemlock-view arg))))
         ((ccl::valid-function-name-p arg)
          (hemlock:edit-definition arg)



More information about the Openmcl-cvs-notifications mailing list