[bknr-cvs] edi changed trunk/thirdparty/cl-unicode/

[BKNR Commits]

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))