[cmucl-ticket] [cmucl] #69: Error parsing ext-formats:unidata.bin

[cmucl]

#69: Error parsing ext-formats:unidata.bin
--------------------+-------------------------------------------------------
 Reporter:  rtoy    |       Owner:  somebody
     Type:  defect  |      Status:  new     
 Priority:  major   |   Milestone:          
Component:  Core    |     Version:  2013-01 
 Keywords:          |  
--------------------+-------------------------------------------------------
 Consider the following:
 {{{
 (setf (logical-pathname-translations "foo")
   '(("**;*.*.*" "/tmp/**/*.*")))

 (let ((*default-pathname-defaults* #p"foo:"))
   (pathname "/tmp/bar.lisp"))
 }}}

 This causes an error:

 {{{
 Unable to display error condition:
 File-error in function LISP::FIND-LOGICAL-HOST:
    Logical host not yet defined: "EXT-FORMATS"
    [Condition of type LISP::NAMESTRING-PARSE-ERROR]
 }}}

 This happens because CMUCL wants to look up some unicode property and
 needs to load the unicode database from ext-formats:unidata.bin.  Because
 we use a namestring, this gets merged with {{{*default-pathname-
 defaults*}}} and is incorrectly parsed as a logical pathname namestring.

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/69>
cmucl <http://common-lisp.net/project/cmucl>
Cmucl is a high-performance, free Common Lisp implementation.