
Hello, I have noticed some strange behaviour while using TMPL_INCLUDE tags when *default-template-pathname* is set to some relative path. I am not sure whether its a bug or not, but it sure doesn't work as I expect it to - Let's start with a some directory - CL-USER(5): *default-pathname-defaults* #P"/Users/chaitanya/lisp/" Now I define a string with the TMPL_INCLUDE tag. CL-USER(7): (setf *tmpl-string* "before test || <!-- TMPL_INCLUDE 'temp/test-template' --> || after test") "before test || <!-- TMPL_INCLUDE 'temp/test-template' --> || after test" Calling fill-and-print-template works fine here. CL-USER(8): (html-template:fill-and-print-template *tmpl-string* nil) before test || Just a test template - || after test The value of *default-template-pathname* currently is CL-USER(11): html-template:*default-template-pathname* #P"" Now we will change it to #p"temp/" CL-USER(12): (setf html-template:*default-template-pathname* #p"temp/") #P"temp/" And we also change *tmpl-string* - CL-USER(13): (setf *tmpl-string* "before test || <!-- TMPL_INCLUDE 'test-template' --> || after test") "before test || <!-- TMPL_INCLUDE 'test-template' --> || after test" Now calling fill-and-print-template doesn't work - CL-USER(14): (html-template:fill-and-print-template *tmpl-string* nil) Error: File #P"temp/temp/test-template" does not exist. [condition type: FILE-ERROR] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this (lisp) process. Upon looking at the source code, I saw that merge-pathnames was being called both while processing the TMPL_INCLUDE tag in create-template-printer-aux and while actually creating the template printer in create-template-printer. And indeed, tracing merge-pathnames reveals that this is what's happening - CL-USER(17): (html-template:fill-and-print-template *tmpl-string* nil) 0[2]: (MERGE-PATHNAMES "test-template" #P"temp/") 0[2]: returned #P"temp/test-template" 0[2]: (MERGE-PATHNAMES #P"temp/test-template" #P"temp/") 0[2]: returned #P"temp/temp/test-template" 0[2]: (MERGE-PATHNAMES #P"temp/temp/test-template") 0[2]: returned #P"/Users/chaitanya/lisp/temp/temp/test-template" 0[2]: (MERGE-PATHNAMES #P"temp/temp/test-template") 0[2]: returned #P"/Users/chaitanya/lisp/temp/temp/test-template" Error: File #P"temp/temp/test-template" does not exist. [condition type: FILE-ERROR] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this (lisp) process. This seems like a bug to me. Is this how its supposed to work? If yes, then how do I solve the above problem? (I don't want to set html-template:*default-template-pathname* to an absolute path) Thanks, Chaitanya