Changeset 10398


Ignore:
Timestamp:
Aug 8, 2008, 10:29:21 AM (11 years ago)
Author:
gb
Message:

In INIT-LOGICAL-DIRECTORIES: don't expect USER-HOMEDIR-PATHNAME to
return NIL, so don't need to get the current directory.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-boot-1.lisp

    r7726 r10398  
    103103
    104104; 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)))
    110108
    111109(push #'init-logical-directories *lisp-system-pointer-functions*)
Note: See TracChangeset for help on using the changeset viewer.