Forked from
cmucl / cmucl
Source project has a limited visibility.
-
rtoy authored
shortest namestring: (enough-namestring #p"/foo" #p"/") => "foo", not "./foo" (enough-namestring #p"foo/bar" #p"foo/") => "bar", not "foo/bar" We check for a common prefix for all cases first now, instead of just when the pathname is :absolute.
rtoy authoredshortest namestring: (enough-namestring #p"/foo" #p"/") => "foo", not "./foo" (enough-namestring #p"foo/bar" #p"foo/") => "bar", not "foo/bar" We check for a common prefix for all cases first now, instead of just when the pathname is :absolute.