Changeset 10398 for branches/working-0711/ccl/level-1/l1-boot-1.lisp
- Timestamp:
- Aug 8, 2008, 10:29:21 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0711/ccl/level-1/l1-boot-1.lisp
r7726 r10398 103 103 104 104 ; only do these if exist 105 (defun init-logical-directories () 106 (let ((startup (mac-default-directory))) 107 (replace-base-translation "home:" (or (user-homedir-pathname) startup)) 108 (replace-base-translation "ccl:" (ccl-directory)) 109 )) 105 (defun init-logical-directories () 106 (replace-base-translation "home:" (user-homedir-pathname)) 107 (replace-base-translation "ccl:" (ccl-directory))) 110 108 111 109 (push #'init-logical-directories *lisp-system-pointer-functions*)
Note: See TracChangeset
for help on using the changeset viewer.