[Ecls-list] Problem with pathnames

[Juan Jose Garcia-Ripoll]

This patch seems to fix everything and let cl-unicode build with ECL

--- dump-orig.lisp 2011-01-12 22:37:54.000000000 +0100
+++ dump.lisp 2011-01-12 22:32:17.000000000 +0100
@@ -105,7 +105,8 @@
 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
*this-file*))))
      (format t "~&;;; Writing source file ~A" (file-namestring pathname))
      (force-output)
      (with-open-file (,stream pathname


-- 
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/ecl-devel/attachments/20110112/3c03b2fd/attachment.html>