marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PAGE-URL should always return a pathname.

Browse source
This commit is contained in:
Brit Butler 2014-05-19 15:27:51 -04:00
parent 2397b70abb
commit 235b727017
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/documents.lisp
View file

@ -37,7 +37,7 @@
(defmethod page-url :around ((document t))
(let ((result (call-next-method)))
(if (pathname-type result)
result
(make-pathname :defaults result)
(make-pathname :type "html" :defaults result))))
(defgeneric render (document &key &allow-other-keys)