/[cmucl]/src/code/filesys.lisp
ViewVC logotype

Diff of /src/code/filesys.lisp

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

revision 1.2.1.3 by wlott, Mon Jun 11 01:13:49 1990 UTC revision 1.2.1.4 by wlott, Tue Jun 12 02:23:16 1990 UTC
# Line 44  Line 44 
44    "Set to the default pathname-defaults pathname (Got that?)")    "Set to the default pathname-defaults pathname (Got that?)")
45    
46  (defun filesys-init ()  (defun filesys-init ()
47      (setq *default-pathname-defaults*
48            (%make-pathname "Mach" nil nil nil nil nil))
49    (multiple-value-bind (won dir)    (multiple-value-bind (won dir)
50                         (mach:unix-current-directory)                         (mach:unix-current-directory)
51      (when won      (when won
52        (setf (search-list "default:") (list dir))))        (setf (search-list "default:") (list dir)))))
   (setq *default-pathname-defaults*  
         (%make-pathname "Mach" nil nil nil nil nil)))  
53    
54    
55  ;;; The pathname type is defined with a defstruct.  ;;; The pathname type is defined with a defstruct.

Legend:
Removed from v.1.2.1.3  
changed lines
  Added in v.1.2.1.4

  ViewVC Help
Powered by ViewVC 1.1.5