Opened 4 months ago

#433 new defect

merge-pathnames blocks error signal?

Reported by: aruttenberg Owned by:
Priority: major Milestone:
Component: interpreter Version:
Keywords: Cc:
Parent Tickets:

Description

(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$pfeval.execute(Primitives.java:345)

Subtickets (add)

Change History (0)

Note: See TracTickets for help on using tickets.