/[gcl]/gcl/clcs/gcl_clcs_install.lisp
ViewVC logotype

Diff of /gcl/clcs/gcl_clcs_install.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26