/[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.106 by rtoy, Thu Jun 19 21:28:51 2008 UTC revision 1.107 by rtoy, Thu Jun 11 16:03:57 2009 UTC
# Line 405  Line 405 
405    ;; this host designator needs to be recognized as a physical host in    ;; this host designator needs to be recognized as a physical host in
406    ;; PARSE-NAMESTRING. Until sbcl-0.7.3.x, we had "Unix" here, but    ;; PARSE-NAMESTRING. Until sbcl-0.7.3.x, we had "Unix" here, but
407    ;; that's a valid Logical Hostname, so that's a bad choice. -- CSR,    ;; that's a valid Logical Hostname, so that's a bad choice. -- CSR,
408      ;;
409      ;; No it isn't - in fact, I'm pretty sure "" is illegal here (and if
410      ;; it isn't, it should be - it ought to mean "the default host", from
411      ;; *default-pathname-defaults*)  -- P. Foley
412    "")    "")
413    
414  (defun unparse-unix-piece (thing)  (defun unparse-unix-piece (thing)
# Line 1374  optionally keeping some of the most rece Line 1378  optionally keeping some of the most rece
1378    
1379  ;;; Default-Directory  --  Public  ;;; Default-Directory  --  Public
1380  ;;;  ;;;
 #+ (and)  
1381  (defun default-directory ()  (defun default-directory ()
1382    "Returns the pathname for the default directory.  This is the place where    "Returns the pathname for the default directory.  This is the place where
1383    a file will be written if no directory is specified.  This may be changed    a file will be written if no directory is specified.  This may be changed
1384    with setf."    with setf."
1385    (multiple-value-bind (gr dir-or-error)    (multiple-value-bind (gr dir-or-error)
1386                         (unix:unix-current-directory)        (unix:unix-current-directory)
1387      (if gr      (if gr
1388          (let ((*ignore-wildcards* t))          (let ((*ignore-wildcards* t))
1389            (values            (values
1390             (parse-namestring (concatenate 'simple-string dir-or-error "/")             (parse-namestring (concatenate 'simple-string dir-or-error "/")
1391                               *unix-host*)))                               *unix-host*)))
1392          (error dir-or-error))))          (error dir-or-error))))
   
1393  ;;;  ;;;
1394  ;;; XXXX This code was modified by me (fmg) to avoid calling  ;;; XXXX This code was modified by me (fmg) to avoid calling
1395  ;;; concatenate.  The reason for this is that there have been  ;;; concatenate.  The reason for this is that there have been

Legend:
Removed from v.1.106  
changed lines
  Added in v.1.107

  ViewVC Help
Powered by ViewVC 1.1.5