- (cond
- ((find ".svn" (cdr tree)
- :key (lambda (x) (when (pathnamep (car x))
- (car (last (pathname-directory (car x))))))
- :test 'equal)
- (cons (car tree) :svn))
- ((find "CVS" (cdr tree)
- :key (lambda (x) (when (pathnamep (car x))
- (car (last (pathname-directory (car x))))))
- :test 'equal)
- (cons (car tree) :cvs))))
- (managed (car managed-pair))
- (type (cdr managed-pair)))
+ (cond
+ ((find ".svn" (cdr tree)
+ :key (lambda (x) (when (pathnamep (car x))
+ (car (last (pathname-directory (car x))))))
+ :test 'equal)
+ (cons (car tree) :svn))
+ ((find ".git" (cdr tree)
+ :key (lambda (x) (when (pathnamep (car x))
+ (car (last (pathname-directory (car x))))))
+ :test 'equal)
+ (cons (car tree) :git))
+ ((find "CVS" (cdr tree)
+ :key (lambda (x) (when (pathnamep (car x))
+ (car (last (pathname-directory (car x))))))
+ :test 'equal)
+ (cons (car tree) :cvs))))
+ (managed (car managed-pair))
+ (type (cdr managed-pair)))