/[meta-cvs]/meta-cvs/F-FFF16CA4956A36F19290AC9E1EBAFFD8
ViewVC logotype

Diff of /meta-cvs/F-FFF16CA4956A36F19290AC9E1EBAFFD8

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

revision 1.48 by kaz, Sun Oct 6 07:56:00 2002 UTC revision 1.49 by kaz, Sun Oct 6 08:17:28 2002 UTC
# Line 247  representation---a list of mapping-entry Line 247  representation---a list of mapping-entry
247  the external form that is written out to files."  the external form that is written out to files."
248    (mapcar #'(lambda (entry)    (mapcar #'(lambda (entry)
249                (with-slots (kind id path target executable raw-plist) entry                (with-slots (kind id path target executable raw-plist) entry
250                  (when executable                  (if executable
251                    (setf (getf raw-plist :exec) t))                    (setf (getf raw-plist :exec) t)
252                      (remf raw-plist :exec))
253                  (case kind                  (case kind
254                    ((:file) (list* kind id path                    ((:file) (list* kind id path
255                                    (if raw-plist (list raw-plist))))                                    (if raw-plist (list raw-plist))))

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

  ViewVC Help
Powered by ViewVC 1.1.5