3

実装に依存しない方法でLispでファイルを移動する最良の方法は何ですか? たとえば、次の画像ファイルがあります。

(setq oldpath #P"SERVER:PICTURES;TEMP;PHOTO.PNG")

TEMP ディレクトリから PICTURES ディレクトリに移動したいと考えています。これはうまくいくようです：

(setq newpath
  (make-pathname 
    :host (pathname-host oldpath) 
    :directory (butlast (pathname-directory oldpath)) 
    :name (pathname-name oldpath)
    :type (pathname-type oldpath)))

(rename-file oldpath newpath)

もっとエレガントな方法はありますか？

ありがとう、デビッド

4

1 に答える 1

6

私は通常使用しています：

(make-pathname :defaults old-path
               :directory (butlast (pathname-directory oldpath)))

この:defaults引数は、古いパス名のすべての関連部分がコピーされていることを確認します。

于 2015-06-01T17:11:50.540 に答える