/[meta-cvs]/meta-cvs/F-73871F8E513E48E095DE0FEFB1CFC48B
ViewVC logotype

Diff of /meta-cvs/F-73871F8E513E48E095DE0FEFB1CFC48B

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

revision 1.12 by kaz, Fri Feb 1 02:23:46 2002 UTC revision 1.13 by kaz, Sun Feb 10 05:09:16 2002 UTC
# Line 35  Line 35 
35                    (chatter-terse "mcvs-add: ~a already added.~%" full-name))                    (chatter-terse "mcvs-add: ~a already added.~%" full-name))
36                  ((directory-p full-name)                  ((directory-p full-name)
37                    (when (not recursivep)                    (when (not recursivep)
38                      (error "mcvs-add: ~a, is a directory.~%" full-name)))                      (error "mcvs-add: ~a, is a directory." full-name)))
39                  ((not (regular-p full-name))                  ((not (regular-p full-name))
40                    (error "mcvs-add: cannot add ~a, not regular file.~%"                    (error "mcvs-add: cannot add ~a, not regular file."
41                           full-name))                           full-name))
42                  (t                  (t
43                    (let ((mcvs-file (mapping-generate-name)))                    (let ((mcvs-file (mapping-generate-name)))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5