/[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.1 by wlott, Fri May 25 20:31:04 1990 UTC revision 1.2.1.2 by wlott, Sat May 26 22:58:18 1990 UTC
# Line 7  Line 7 
7  ;;; Scott Fahlman (FAHLMAN@CMUC).  ;;; Scott Fahlman (FAHLMAN@CMUC).
8  ;;; **********************************************************************  ;;; **********************************************************************
9  ;;;  ;;;
10    ;;; $Header$
11    ;;;
12  ;;; Ugly pathname functions for Spice Lisp.  ;;; Ugly pathname functions for Spice Lisp.
13  ;;;    these functions are part of the standard Spice Lisp environment.  ;;;    these functions are part of the standard Spice Lisp environment.
14  ;;;  ;;;
# Line 1092  Line 1094 
1094    (multiple-value-bind (gr dir-or-error)    (multiple-value-bind (gr dir-or-error)
1095                         (mach:unix-current-directory)                         (mach:unix-current-directory)
1096      (if gr      (if gr
1097          dir-or-error          (pathname dir-or-error)
1098          (error (mach:get-unix-error-msg dir-or-error)))))          (error dir-or-error))))
1099    
1100  ;;;  ;;;
1101  ;;; Maybe this shouldn't go here...  ;;; Maybe this shouldn't go here...

Legend:
Removed from v.1.2.1.1  
changed lines
  Added in v.1.2.1.2

  ViewVC Help
Powered by ViewVC 1.1.5