/[meta-cvs]/meta-cvs/F-26D2A2DCE1CF180F943606C59DC63A51.lisp
ViewVC logotype

Diff of /meta-cvs/F-26D2A2DCE1CF180F943606C59DC63A51.lisp

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

revision 1.26 by kaz, Fri Jan 9 05:18:14 2004 UTC revision 1.27 by kaz, Wed Jan 28 16:12:43 2004 UTC
# Line 332  Line 332 
332                  (with-slots (kind id path target) (second pair)                  (with-slots (kind id path target) (second pair)
333                    (let ((map-entry (gethash id all-hash)))                    (let ((map-entry (gethash id all-hash)))
334                      (setf (mapping-entry-target map-entry)                      (setf (mapping-entry-target map-entry)
335                            (readlink (mapping-entry-path map-entry))))))                            (readlink (abstract-to-real-path
336                                          (mapping-entry-path map-entry)))))))
337                (dolist (file-entry stable-files)                (dolist (file-entry stable-files)
338                  (with-slots (kind id path) file-entry                  (with-slots (kind id path) file-entry
339                    (let ((map-entry (gethash id all-hash)))                    (let ((map-entry (gethash id all-hash)))
340                      (setf (mapping-entry-executable map-entry)                      (setf (mapping-entry-executable map-entry)
341                            (executable-p (mapping-entry-path map-entry))))                            (executable-p path)))
342                    (when (eq kind :file)                    (when (eq kind :file)
343                      (unlink id)                      (unlink id)
344                      (link path id))))                      (link path id))))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5