[xyzzy:08078] Re: xyzzy からディレクトリを作成

[Hiroshi Saito <HiroshiSaito@xxxxxxx>]

サイトウです。
ごめんなさい。間違えました。
(check-valid-pathname)するのは filename でなく d でないと
だめですね。

  (defun make-directory-unless-directory-exists (filename)
-    (unless (check-valid-pathname filename)
-      (let ((d (directory-namestring filename)))
+    (let ((d (directory-namestring filename)))
+      (unless (check-valid-pathname d)
        (when (yes-or-no-p "~a~%ディレクトリがないけど作る？"  d)
          (create-directory d))))
    nil)

-- 
Hiroshi Saito <HiroshiSaito@xxxxxxx>