[Openmcl-cvs-notifications] r16187 - /trunk/source/cocoa-ide/project.lisp

svspire at clozure.com svspire at clozure.com
Thu Sep 4 02:14:58 UTC 2014


Author: svspire
Date: Thu Sep  4 02:14:58 2014
New Revision: 16187

Log:
Make it a little more reliable

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

Modified: trunk/source/cocoa-ide/project.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/project.lisp	(original)
+++ trunk/source/cocoa-ide/project.lisp	Thu Sep  4 02:14:58 2014
@@ -343,9 +343,10 @@
                                                  (system (current-system-i=
tem
                                                           self)))
                                                 :key #'cdr)))))
+
            (%make-nsstring (if (consp dependency)
-                             (second dependency)
-                             dependency))))))
+                             (namestring (asdf/component::component-pathna=
me (second dependency)))
+                             (namestring (asdf/component::component-pathna=
me dependency))))))))
 =

 (objc:defmethod (#/outlineView:isItemExpandable: :<BOOL>)
                 ((self project-window-controller) outline-view item)



More information about the Openmcl-cvs-notifications mailing list