Changeset 10398 for branches/working-0711/ccl/level-1/l1-boot-1.lisp

Timestamp:

Aug 8, 2008, 10:29:21 AM (12 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:

• branches/working-0711/ccl/level-1/l1-boot-1.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/l1-boot-1.lisp

@@ -103 +103 @@
 
 ; only do these if exist
-(defun init-logical-directories ()  
-  (let ((startup (mac-default-directory)))
-    (replace-base-translation "home:" (or (user-homedir-pathname) startup))
-    (replace-base-translation "ccl:" (ccl-directory))
-    ))
+(defun init-logical-directories ()
+  (replace-base-translation "home:"  (user-homedir-pathname))
+  (replace-base-translation "ccl:" (ccl-directory)))
 
 (push #'init-logical-directories *lisp-system-pointer-functions*)