Changeset 6852


Ignore:
Timestamp:
Jul 20, 2007, 1:54:40 AM (13 years ago)
Author:
gb
Message:

Ensure that *CCL-DIRECTORY* gets a trailing "/".

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ide-1.0/ccl/examples/cocoa.lisp

    r6848 r6852  
    2727(require "COCOA-INSPECTOR")
    2828
    29 (def-cocoa-default *ccl-directory* :string (namestring (ccl-directory)) nil #'(lambda (old new) (unless (equal old new) (replace-base-translation "ccl:" new))))
     29(def-cocoa-default *ccl-directory* :string (ensure-directory-namestring (namestring (ccl-directory))) nil #'(lambda (old new) (unless (equal old new) (replace-base-translation "ccl:" new))))
    3030
    3131
Note: See TracChangeset for help on using the changeset viewer.