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

svspire at clozure.com svspire at clozure.com
Sat Sep 13 22:34:27 UTC 2014


Author: svspire
Date: Sat Sep 13 22:34:27 2014
New Revision: 16199

Log:
#'find-or-make-hemlock-view now calls truename on pathname.
Fixes ticket:1234.

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	Sat Sep 13 22:34:27 2014
@@ -3548,7 +3548,7 @@
     (let* ((doc (if pathname
                   (#/openDocumentWithContentsOfURL:display:error:
                    (#/sharedDocumentController ns:ns-document-controller)
-                   (pathname-to-url pathname)
+                   (pathname-to-url (truename pathname))
                    #$YES
                    perror)
                   (let ((*last-document-created* nil))



More information about the Openmcl-cvs-notifications mailing list