/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

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

revision 1.124 by pfdietz, Sun Jun 26 14:52:06 2005 UTC revision 1.125 by pfdietz, Sun Jun 26 18:17:40 2005 UTC
# Line 757  the condition to go uncaught if it canno Line 757  the condition to go uncaught if it canno
757            (unuse-package package using-package)))            (unuse-package package using-package)))
758        (delete-package package))))        (delete-package package))))
759    
760  #-(or allegro openmcl)  #-(or allegro openmcl lispworks)
761  (defun delete-all-versions (pathspec)  (defun delete-all-versions (pathspec)
762    "Replace the versions field of the pathname specified by pathspec with    "Replace the versions field of the pathname specified by pathspec with
763     :wild, and delete all the files this refers to."     :wild, and delete all the files this refers to."
# Line 767  the condition to go uncaught if it canno Line 767  the condition to go uncaught if it canno
767    
768  ;;; This is a hack to get around an ACL bug; OpenMCL also apparently  ;;; This is a hack to get around an ACL bug; OpenMCL also apparently
769  ;;; needs it  ;;; needs it
770  #+(or allegro openmcl)  #+(or allegro openmcl lispworks)
771  (defun delete-all-versions (pathspec)  (defun delete-all-versions (pathspec)
772    (when (probe-file pathspec) (delete-file pathspec)))    (when (probe-file pathspec) (delete-file pathspec)))
773    

Legend:
Removed from v.1.124  
changed lines
  Added in v.1.125

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