Changeset 7351


Ignore:
Timestamp:
Oct 4, 2007, 6:11:32 PM (12 years ago)
Author:
mikel
Message:

fixed pathname bug in builder-utilities

Location:
trunk/ccl/cocoa-ide
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/cocoa-ide/build-application.lisp

    r7120 r7351  
    6767                                              :main-nib-name main-nib-name))
    6868         (image-path (namestring (path app-bundle "Contents" "MacOS" name))))
     69
    6970    ;; copy IDE resources into the application bundle
    7071    (recursive-copy-directory (path ide-bundle-path "Contents" "Resources/")
  • trunk/ccl/cocoa-ide/builder-utilities.lisp

    r7172 r7351  
    8383(defun recursive-copy-directory (source-path dest-path)
    8484  (ensure-directories-exist (ensure-directory-pathname dest-path))
    85   (let ((files (directory (path source-path "*") :directories nil :files t))
    86         (subdirs (directory (path source-path "*") :directories t :files nil)))
     85  (let ((files (directory (path source-path "*.*") :directories nil :files t))
     86        (subdirs (directory (path source-path "*.*") :directories t :files nil)))
     87;    (format t "~%files = ~S" files)
     88;    (format t "~%subdirs = ~S~%" subdirs)
    8789    (dolist (f files)
    8890      (let* ((src-name (file-namestring f))
     
    9597             (dest-dir (ensure-directory-pathname (path dest-path subdir-name))))
    9698        (recursive-copy-directory d dest-dir)))
    97     dest-path))
     99    dest-path
     100    ))
    98101
    99102;;; WRITE-PKGINFO path package-type bundle-signature
Note: See TracChangeset for help on using the changeset viewer.