From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Thu, 28 Dec 2006 21:12:54 +0000 (+0000)
Subject: r11409: fix error message
X-Git-Tag: v2006ac.2~39
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=f8c80d433d78aa6df55309a6c04a80d3b7f1c679

r11409: fix error message
---

diff --git a/parse-macros.lisp b/parse-macros.lisp
index a2af75e..2a7469b 100644
--- a/parse-macros.lisp
+++ b/parse-macros.lisp
@@ -65,7 +65,7 @@
     `(let ((,eof (gensym "EOFSYM-"))
 	   (,files (source-files ,path)))
       (unless ,files
-        (error "Can't find file files for ~A~%" ,path))
+        (error "Can't find files for ~A~%" (namestring ,path)))
       (with-open-file (,ustream (first ,files) :direction :input
                        #+(and clisp unicode) :external-format
                        #+(and clisp unicode) charset:utf-8)