ClassCastException in MAKE-PATHNAME

[ehuelsmann]

,----
| Armed Bear Common Lisp 1.1.0-dev-svn-14131M
| Java 1.7.0_03 Oracle Corporation
| OpenJDK 64-Bit Server VM
| Low-level initialization completed in 0.3 seconds.
| Startup completed in 1.456 seconds.
| Loading /home/emarsden/.abclrc completed in 0.66 seconds.
| Type ":help" for a list of available commands.
| CL-USER(1): (make-pathname :device (list "foo"))
| java.lang.ClassCastException?: org.armedbear.lisp.SimpleString? cannot be cast to org.armedbear.lisp.Pathname
| at org.armedbear.lisp.Pathname.getNamestring(Pathname.java:657)
| at org.armedbear.lisp.Pathname.printObject(Pathname.java:909)
| at org.armedbear.lisp.Primitives$pfoutput_object.execute(Primitives.java:907)
| at org.armedbear.lisp.Symbol.execute(Symbol.java:813)
| at org.armedbear.lisp.LispThread?.execute(LispThread?.java:653)
| at org.armedbear.lisp.print_8.execute(print.lisp:127)
| at org.armedbear.lisp.Symbol.execute(Symbol.java:813)
| at org.armedbear.lisp.LispThread?.execute(LispThread?.java:653)
| at org.armedbear.lisp.print_14.execute(print.lisp:281)
| at org.armedbear.lisp.Symbol.execute(Symbol.java:813)
| at org.armedbear.lisp.LispThread?.execute(LispThread?.java:653)
`----

[ehuelsmann]

pathnames -> mevenson

[Mark Evenson]

(In [14238]) Fixes #243: MAKE-PATHNAME with a DEVICE string.

We allow DEVICE lists to contain a string value as constructed by
MAKE-PATHNAME, but the result can never actually be resolvable by
TRUENAME.

Instead of trying to figure out the proper use of Java labels, just
use the private static Pathname.doTruenameExit() as the common point
for all exits from the TRUENAME implementation.