/[meta-cvs]/meta-cvs/F-94BF952D29F3DC3FFD457EFFCE570DB2
ViewVC logotype

Diff of /meta-cvs/F-94BF952D29F3DC3FFD457EFFCE570DB2

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

revision 1.2 by kaz, Mon Feb 18 06:14:22 2002 UTC revision 1.3 by kaz, Mon Feb 18 06:21:13 2002 UTC
# Line 35  Line 35 
35         (let ((type-spec (first types)))         (let ((type-spec (first types)))
36           (when (or (not (stringp (first type-spec)))           (when (or (not (stringp (first type-spec)))
37                     (not (symbolp (second type-spec))))                     (not (symbolp (second type-spec))))
38             (error "mcvs: bad syntax in file types specification: ~s" type-spec))             (error "bad syntax in file type treatment specification: ~s" type-spec))
39           (when (not (member (second type-spec)           (when (not (member (second type-spec)
40                              '(:name-only :keep-old :default :value-only                              '(:name-only :keep-old :default :value-only
41                                :binary :ignore)))                                :binary :ignore)))
42             (error "mcvs: unrecognized keyword: ~s" type-spec)))             (error "unrecognized keyword: ~s" type-spec)))
43         (types-sanity-check (rest types)))         (types-sanity-check (rest types)))
44      (t (error "mcvs: bad syntax in file types specification: ~s" types))))      (t (error "bad syntax in file type treatment specification: ~s" types))))
45    
46  (defun types-to-import-wrapper-args (types)  (defun types-to-import-wrapper-args (types)
47    (mapcan #'(lambda (type-spec)    (mapcan #'(lambda (type-spec)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5