Ignore:
Timestamp:
Aug 11, 2008, 3:49:48 AM (12 years ago)
Author:
gb
Message:

Merge a lot of the CLOS/type-system changes from working-0711 branch
into trunk. Todo: compiler-macros for those changes.

Have -not- yet merged source-tracking changes, new record-source file
from working-0711, but this stuff seems to bootstrap in one swell foop.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-boot-1.lisp

    r7726 r10426  
    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.