/[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.69 by toy, Wed Oct 16 14:01:01 2002 UTC revision 1.70 by toy, Fri Nov 8 15:26:51 2002 UTC
# Line 1269  Line 1269 
1269                         (unix:unix-current-directory)                         (unix:unix-current-directory)
1270      (if gr      (if gr
1271          (let ((*ignore-wildcards* t))          (let ((*ignore-wildcards* t))
1272            (pathname (concatenate 'simple-string dir-or-error "/")))            (values
1273               (parse-namestring (concatenate 'simple-string dir-or-error "/")
1274                                 *unix-host*)))
1275          (error dir-or-error))))          (error dir-or-error))))
1276    
1277  ;;; %Set-Default-Directory  --  Internal  ;;; %Set-Default-Directory  --  Internal

Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70

  ViewVC Help
Powered by ViewVC 1.1.5