[Openmcl-devel] difference in copy-file behavior between MCL and OpenMCL

[Gary King]

Under MCL, a command like:

(copy-file "tinaa:tinaa.css" "home:new-dir;tinaa.css")

Creates new-dir if it doesn't already exist. Under OpenMCL, an error is 
signaled:

 > Error in process listener(1): Error copying "tinaa:tinaa.css" to 
"home:new-dir;tinaa.css": Operation not permitted
 > While executing: COPY-FILE
 > Type :POP to abort.
Type :? for other options.
1 > :pop

Assuming that MCL's behavior is a good thing, the following patch adds 
a call to ensure-directories-exist to give the same behavior to 
OpenMCL...

===================================================================
RCS file: /usr/local/tmpcvs/ccl-0.14/ccl/lib/pathnames.lisp,v
retrieving revision 1.3
diff -r1.3 pathnames.lisp
126a127
 >       (ensure-directories-exist new-name)


-- 
Gary Warren King, Lab Manager
EKSL East, University of Massachusetts * 413 577 0176

When you lose small businesses, you lose big ideas.
   -- Ted Turner, Washington Post May 30, 2003
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/enriched
Size: 1062 bytes
Desc: not available
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20040222/a81e7941/attachment.bin>