/[meta-cvs]/meta-cvs/F-58F396B2ADF675136DD8552C6FFD5310.lisp
ViewVC logotype

Diff of /meta-cvs/F-58F396B2ADF675136DD8552C6FFD5310.lisp

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

revision 1.6 by kaz, Thu Apr 4 16:55:09 2002 UTC revision 1.7 by kaz, Thu Apr 4 16:58:50 2002 UTC
# Line 48  and one of branch tags." Line 48  and one of branch tags."
48    
49  (defun branch-tag-check (tag)  (defun branch-tag-check (tag)
50    (when (some #'(lambda (ch) (char= ch *branch-char*)) tag)    (when (some #'(lambda (ch) (char= ch *branch-char*)) tag)
51      (error "mcvs-branch: tag must not contain ~a character." *branch-char*)))      (error "mcvs-branch: tag must not contain ~a character." *branch-char*))
52      (when (string= tag "HEAD")
53        (error "mcvs-branch: HEAD is a reserved symbol." *branch-char*)))
54    
55  (defun mcvs-branch (global-options branch-name)  (defun mcvs-branch (global-options branch-name)
56    (branch-tag-check branch-name)    (branch-tag-check branch-name)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5