[cmucl-imp] ENOUGH-NAMESTRING and .~N~

[Helmut Eller]

Create a file .my-file.~1~ like so:

  bash> mkdir -p /tmp/my-dir; touch /tmp/my-dir/.my-file.~1~

then in CMUCL:

* (defparameter *my-dir* (truename "/tmp/my-dir/"))
* (enough-namestring (car (directory *my-dir*)) *my-dir*)
Error in function (FLET LISP::LOSE LISP::UNPARSE-UNIX-ENOUGH):
#P"/tmp/my-dir/.my-file.~1~" cannot be represented relative to #P"/tmp/my-dir/"
   [Condition of type SIMPLE-ERROR]

That's odd, no?

Helmut