/[cmucl]/src/hemlock/mh.lisp
ViewVC logotype

Diff of /src/hemlock/mh.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2.1.9 by ram, Wed Sep 4 14:18:56 1991 UTC revision 1.2.1.10 by chiles, Mon Sep 16 14:48:41 1991 UTC
# Line 2863  Line 2863 
2863        (let ((path (mh-profile-component "path")))        (let ((path (mh-profile-component "path")))
2864          (unless path (error "MH profile does not contain a Path component."))          (unless path (error "MH profile does not contain a Path component."))
2865          (setf *mh-directory-pathname*          (setf *mh-directory-pathname*
2866                (merge-relative-pathnames path (user-homedir-pathname))))))                (truename (merge-relative-pathnames path
2867                                                      (user-homedir-pathname)))))))
2868    
2869  ;;; Profile components.  ;;; Profile components.
2870  ;;;  ;;;
# Line 2905  Line 2906 
2906        (setf *mh-profile-pathname*        (setf *mh-profile-pathname*
2907              (merge-pathnames (or (cdr (assoc :mh ext:*environment-list*))              (merge-pathnames (or (cdr (assoc :mh ext:*environment-list*))
2908                                   ".mh_profile")                                   ".mh_profile")
2909                               (user-homedir-pathname)))))                               (truename (user-homedir-pathname))))))
2910    
2911    
2912    

Legend:
Removed from v.1.2.1.9  
changed lines
  Added in v.1.2.1.10

  ViewVC Help
Powered by ViewVC 1.1.5