Revision: 4628 Author: edi URL: http://bknr.net/trac/changeset/4628
Try it again
U trunk/thirdparty/cl-unicode/CHANGELOG.txt U trunk/thirdparty/cl-unicode/build/dump.lisp
Modified: trunk/thirdparty/cl-unicode/CHANGELOG.txt =================================================================== --- trunk/thirdparty/cl-unicode/CHANGELOG.txt 2011-01-12 15:37:10 UTC (rev 4627) +++ trunk/thirdparty/cl-unicode/CHANGELOG.txt 2011-01-12 22:40:12 UTC (rev 4628) @@ -1,3 +1,5 @@ +Make pathname creation conformant (thanks to Juan José Garcia-Ripoll) + Version 0.1.1 2008-07-24 Make ADD-HANGUL-NAMES faster for ClozureCL
Modified: trunk/thirdparty/cl-unicode/build/dump.lisp =================================================================== --- trunk/thirdparty/cl-unicode/build/dump.lisp 2011-01-12 15:37:10 UTC (rev 4627) +++ trunk/thirdparty/cl-unicode/build/dump.lisp 2011-01-12 22:40:12 UTC (rev 4628) @@ -105,7 +105,10 @@ writes to the file denoted by RELATIVE-PATH - a path relative to the location of this source file. Writes a Lisp header to the files unless NO-HEADER-P is true." - `(let ((pathname (merge-pathnames ,relative-path *this-file*))) + `(let ((pathname (merge-pathnames ,relative-path + (make-pathname :name nil + :type nil + :defaults *this-file*)))) (when *compile-verbose* (format t "~&;;; Writing source file ~A" (file-namestring pathname)) (force-output))