/[meta-cvs]/meta-cvs/F-6BD7679FED76D6E5A7D36DC36C205FC1.lisp
ViewVC logotype

Diff of /meta-cvs/F-6BD7679FED76D6E5A7D36DC36C205FC1.lisp

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

revision 1.9.2.4 by kaz, Tue Dec 3 07:21:05 2002 UTC revision 1.9.2.5 by kaz, Sun Jan 26 00:44:10 2003 UTC
# Line 106  Line 106 
106                             :dir (format nil "[file descriptor ~a]" descr))))                             :dir (format nil "[file descriptor ~a]" descr))))
107      (values))      (values))
108    
109    (define-condition getcwd-error (system-error) ())
110    
111    (defmethod initialize-instance :after ((c getcwd-error) &rest args)
112      (declare (ignore args))
113      (with-slots (message) c
114        (setf message (format nil "Unable to determine current directory: ~A."
115                              (unix-funcs:strerror unix-funcs:errno)))))
116    
117  (defun getcwd ()  (defun getcwd ()
118    (unix-funcs:getcwd))    (or (unix-funcs:getcwd)
119          (error (make-condition 'getcwd-error))))
120  (declaim (inline getcwd))  (declaim (inline getcwd))
121    
122  (defmacro current-dir-restore (&body forms)  (defmacro current-dir-restore (&body forms)

Legend:
Removed from v.1.9.2.4  
changed lines
  Added in v.1.9.2.5

  ViewVC Help
Powered by ViewVC 1.1.5