/[meta-cvs]/meta-cvs/F-300FB44635F94930416CE1B06097B230.lisp
ViewVC logotype

Diff of /meta-cvs/F-300FB44635F94930416CE1B06097B230.lisp

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

revision 1.6 by kaz, Thu Oct 31 04:06:01 2002 UTC revision 1.7 by kaz, Thu Oct 31 04:46:39 2002 UTC
# Line 30  Line 30 
30                  (error "~a is not known to Meta-CVS." full-name)                  (error "~a is not known to Meta-CVS." full-name)
31                  (setf entries-to-process (nconc entries-to-process entries)))))))                  (setf entries-to-process (nconc entries-to-process entries)))))))
32    
33        (when entries-to-process        (when (and entries-to-process prop-options)
34          ;; do the property update          ;; do the property update
35          (chatter-debug "Updating properties.~%")          (chatter-debug "Updating properties.~%")
36          (dolist (entry entries-to-process)          (dolist (entry entries-to-process)

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

  ViewVC Help
Powered by ViewVC 1.1.5