/[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.66 by toy, Tue Feb 19 15:48:25 2002 UTC revision 1.67 by toy, Wed Jul 10 16:15:58 2002 UTC
# Line 1274  Line 1274 
1274  (defun %set-default-directory (new-val)  (defun %set-default-directory (new-val)
1275    (let ((namestring (unix-namestring new-val t)))    (let ((namestring (unix-namestring new-val t)))
1276      (unless namestring      (unless namestring
1277        (error "~S doesn't exist." new-val))        (error 'simple-file-error
1278                 :format-control "~S doesn't exist."
1279                 :format-arguments (list new-val)))
1280      (multiple-value-bind (gr error)      (multiple-value-bind (gr error)
1281                           (unix:unix-chdir namestring)                           (unix:unix-chdir namestring)
1282        (if gr        (if gr

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

  ViewVC Help
Powered by ViewVC 1.1.5