Parent Directory | Revision Log | Patch
revision 1.3 by camm, Fri Jun 10 15:04:32 2005 UTC | revision 1.4 by camm, Tue Oct 18 02:12:10 2005 UTC | |
---|---|---|
# | Line 74 | Line 74 |
74 | ||
75 | (defun clcs-open (&rest args) | (defun clcs-open (&rest args) |
76 | (loop (with-simple-restart (retry "Retry opening file ~S." (car args)) | (loop (with-simple-restart (retry "Retry opening file ~S." (car args)) |
77 | (return-from clcs-open | (return-from clcs-open |
78 | (apply (or (get 'open 'definition-before-clcs) #'open) args))))) | (apply (or (get 'open 'definition-before-clcs) #'open) args))))) |
79 | ||
80 | #+(or kcl lucid cmu) | #+(or kcl lucid cmu) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |