Ignore:
Timestamp:
Nov 13, 2010, 3:51:15 AM (9 years ago)
Author:
svspire
Message:

Be slightly less stupid in #'pathname-for-namestring-fragment. Tolerate strings surrounded by \" or beginning with #P. Automatically add *.lisp-pathname* if all else fails.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-editor.lisp

    r14363 r14429  
    18021802  "Return a pathname that STRING might designate."
    18031803  ;; We could get fancy here, but for now just be stupid.
    1804   (let ((pathname (ignore-errors (probe-file string))))
     1804  (let* ((rfs (ignore-errors (read-from-string string nil nil)))
     1805         (pathname (or (ignore-errors (probe-file string))
     1806                       (ignore-errors (probe-file rfs))
     1807                       (ignore-errors (probe-file (merge-pathnames *.lisp-pathname* string)))
     1808                       (ignore-errors (probe-file (merge-pathnames *.lisp-pathname* rfs))))))
    18051809    (if (and (pathnamep pathname)
    18061810             (not (directory-pathname-p pathname)))
Note: See TracChangeset for help on using the changeset viewer.