/[meta-cvs]/meta-cvs/F-9A67B1893CE1CF23455CD1EF0F486B65
ViewVC logotype

Diff of /meta-cvs/F-9A67B1893CE1CF23455CD1EF0F486B65

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

revision 1.15 by kaz, Mon Mar 8 06:11:40 2004 UTC revision 1.16 by kaz, Fri Nov 24 04:53:50 2006 UTC
# Line 2  Line 2 
2  ;;; which is distributed under the GNU license.  ;;; which is distributed under the GNU license.
3  ;;; Copyright 2002 Kaz Kylheku  ;;; Copyright 2002 Kaz Kylheku
4    
5  (in-package "META-CVS")  (in-package :meta-cvs)
6    
7  (defun remove-attic-component (path)  (defun remove-attic-component (path)
8    (let ((split-path (nreverse (split-fields path "/")))    (let ((split-path (nreverse (split-fields path "/")))

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5