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

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