<div dir="ltr">I was going to add this as an error report for CCL, but I see you've already done that.  Thanks!<div><br></div><div>Blake</div><div><br></div><div><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div><span></span><br></div></div></div></div></div>
<div class="gmail_extra"><br><div class="gmail_quote">On Mon, Jun 13, 2016 at 10:00 PM, Vibhu Mohindra <span dir="ltr"><<a href="mailto:vibhu.mohindra@gmail.com" target="_blank">vibhu.mohindra@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">CLHS for merge-pathnames specifies that,<br>
  "This removal of redundant :back keywords is repeated as many times as<br>
   possible."<br>
<br>
abcl-1.3.2<br>
The first expression below evaluates correctly, but the second produces<br>
an error.<br>
<br>
FCFS(34): (merge-pathnames<br>
            (make-pathname :directory '(:relative "a" "b" :back))<br>
            (make-pathname :directory '(:absolute "root")))<br>
<br>
#P"/root/a/"<br>
FCFS(35): (merge-pathnames<br>
            (make-pathname :directory '(:relative "a" "b" :back :back))<br>
            (make-pathname :directory '(:absolute "root")))<br>
<br>
#<THREAD "interpreter" {43B4AF3C}>: Debugger invoked on condition of<br>
type FILE-ERROR<br>
  Unsupported directory component BACK.<br>
Restarts:<br>
  0: TOP-LEVEL Return to top level.<br>
<br>
For what it's worth, CCL also produces an error. CLISP, ECL, SBCL<br>
correctly produce:<br>
#P"/root/"<br>
<br>
(That said, I'm far from a pathname expert and could be completely wrong.)<br>
<span class="HOEnZb"><font color="#888888"><br>
Vibhu<br>
<br>
</font></span></blockquote></div><br></div></div>