Re: make-pathname
Jorge Tavares <[email protected]>
| Newsgroups | gmane.lisp.allegro |
|---|---|
| Message-ID | <[email protected]> |
Hello again, First, I would like to thank eevryone who answered my question. I can see now the better use for the diferent keywords in make-pathname. Jorge John M. Adams wrote: > Use :device "D:\\" in your make-pathname call. The pathname > facilities won't work as expected if you treat the drive specifier as > a directory name prefix. > > Jorge Tavares <[email protected]> writes: > > >>Hi, >> >>This is a simple question but until now I was unable to find an >>answer. Supose i want to make a function that writes into a file in a >>specified directory. >> >> >>For example: >> >>(defun make-index () >> (with-open-file (str (make-pathname >> :name "index.html" :directory '(:absolute >> "webpage")) >> >> :direction :output :if-exists :supersede >> :if-does-not-exist :create) >> (html-stream str (:html >> (:head (:title "Test")) >> (:body (:h1 "Test") >> "HTML generator test."))))) >> >>In this function, I can do what I want but with the exception of one >>minor detail: it saves the "index.html" in "C:\webpage". If I want the >>drive changed, for example "D:\webpage", what is the :absolute >>replacement? I've tried just puttng the string "D:\\webpage" but it >>always translate into "C:\<ACL DIR>\D:\webpage". >> >> >>What are the options for make-pathname? I've search the documentation >>but I was unable to find something this simple. >> >> >> >>Thanks in advance for any kind of advice, >>Jorge Tavares >> >>-- >>Jorge Tavares >>http://www.dei.uc.pt/~jast >> >>"Evolution is the best engineer." >> >> >> > > -- Jorge Tavares http://www.dei.uc.pt/~jast "Evolution is the best engineer."