[armedbear] #433: merge-pathnames blocks error signal?

[armedbear]

#433: merge-pathnames blocks error signal?
-------------------------+----------------------
 Reporter:  aruttenberg  |           Owner:
     Type:  defect       |          Status:  new
 Priority:  major        |       Milestone:
Component:  interpreter  |         Version:
 Keywords:               |  Parent Tickets:
-------------------------+----------------------
 `(make-pathname :directory '(:absolute ("a" "b")))`
 property signals an error `Unsupported directory component (a b).`

 However the following
 `(merge-pathnames (make-pathname :directory '(:absolute ("a" "b"))) "")`

 Does not, instead spitting out a java stack trace

 ABCL Debug.assertTrue() assertion failed!
 java.lang.Error: ABCL Debug.assertTrue() assertion failed!
         at org.armedbear.lisp.Debug.assertTrue(Debug.java:48)
         at org.armedbear.lisp.Pathname.<init>(Pathname.java:154)
         at org.armedbear.lisp.Pathname.mergePathnames(Pathname.java:1979)
         at
 org.armedbear.lisp.Pathname$pf_merge_pathnames.execute(Pathname.java:1957)
         at org.armedbear.lisp.LispThread.execute(LispThread.java:832)
         at org.armedbear.lisp.Lisp.evalCall(Lisp.java:582)
         at org.armedbear.lisp.Lisp.eval(Lisp.java:540)
         at
 org.armedbear.lisp.Primitives$pf__eval.execute(Primitives.java:345)``

--
Ticket URL: <http://abcl.org/trac/ticket/433>
armedbear <http://abcl.org>
armedbear