Opened 5 years ago

#1366 new defect

merge-pathnames bug with :back component

Reported by: vibhu Owned by:
Priority: normal Milestone:
Component: ANSI CL Compliance Version: 1.10
Keywords: Cc:

Description

CLHS for merge-pathnames specifies that,

"This removal of redundant :back keywords is repeated as many times as

possible."

ccl (1.10-r16196, OSX)

The first expression below evaluates correctly, but the second produces an error.

? (merge-pathnames (make-pathname :directory '(:relative "a" "b" :back))
                   (make-pathname :directory '(:absolute "root")))
#P"/root/a/"
? (merge-pathnames (make-pathname :directory '(:relative "a" "b" :back :back))
                   (make-pathname :directory '(:absolute "root")))
> Error: The value :BACK is not of the expected type SEQUENCE.

CLISP, ECL, SBCL correctly produce:

#P"/root/"

(That said, I'm far from a pathname expert and could be completely wrong.)

Change History (0)

Note: See TracTickets for help on using tickets.