Ignore:
Timestamp:
Sep 16, 2014, 5:27:36 PM (7 years ago)
Author:
plkrueger
Message:

Bug Fixes to Cocoa Tools contrib

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Cocoa Dev/lisp-app-doc.lisp

    r16178 r16202  
    944944              (when exts
    945945                (setf dt-file-ext (array-to-string exts))))
    946             (setf dt-owner-for-doc (if (string= (gethash "LSHandlerRank" dt-ht 0) "Owner") t nil))
     946            (setf dt-owner-for-doc (if (string= (gethash "LSHandlerRank" dt-ht "") "Owner") t nil))
    947947            (setf dt-doc-class (string-downcase (ns-to-lisp-classname (gethash "NSDocumentClass" dt-ht nil) dt-doc-class)))
    948948   
     
    10091009         (ns-plist (#/dictionaryWithContentsOfFile: ns:ns-mutable-dictionary pl-path)))
    10101010    (setf (app-info-plist self)
    1011           (ns-to-lisp-hash-table ns-plist))
     1011          (ns-to-lisp-hash-table ns-plist :test 'equal))
    10121012    (setf (app-info-plist-date self) (file-write-date path))))
    10131013   
Note: See TracChangeset for help on using the changeset viewer.