Changeset 7351 for trunk/ccl/cocoa-ide/builder-utilities.lisp

Timestamp:

Oct 4, 2007, 6:11:32 PM (13 years ago)

Author:

mikel

Message:

fixed pathname bug in builder-utilities

File:

• trunk/ccl/cocoa-ide/builder-utilities.lisp (modified) (2 diffs)

trunk/ccl/cocoa-ide/builder-utilities.lisp

@@ -83 +83 @@
 (defun recursive-copy-directory (source-path dest-path)
   (ensure-directories-exist (ensure-directory-pathname dest-path))
-  (let ((files (directory (path source-path "*") :directories nil :files t))
-        (subdirs (directory (path source-path "*") :directories t :files nil)))
+  (let ((files (directory (path source-path "*.*") :directories nil :files t))
+        (subdirs (directory (path source-path "*.*") :directories t :files nil)))
+;    (format t "~%files = ~S" files)
+;    (format t "~%subdirs = ~S~%" subdirs)
     (dolist (f files)
       (let* ((src-name (file-namestring f))
@@ -95 +97 @@
              (dest-dir (ensure-directory-pathname (path dest-path subdir-name))))
         (recursive-copy-directory d dest-dir)))
-    dest-path))
+    dest-path
+    ))
 
 ;;; WRITE-PKGINFO path package-type bundle-signature