/[meta-cvs]/meta-cvs/F-8B1C05210FE068EABD820A59D92A1FE0
ViewVC logotype

Diff of /meta-cvs/F-8B1C05210FE068EABD820A59D92A1FE0

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

revision 1.4 by kaz, Sat Jan 26 18:24:30 2002 UTC revision 1.5 by kaz, Tue Jan 29 06:40:07 2002 UTC
# Line 152  Line 152 
152  (defmethod regular-p ((filename string))  (defmethod regular-p ((filename string))
153    (regular-p (stat filename)))    (regular-p (stat filename)))
154    
155    (defmethod regular-p ((x null))
156      nil)
157    
158  (defmethod directory-p ((file file-info))  (defmethod directory-p ((file file-info))
159    (linux:S_ISDIR (mode-flags file)))    (linux:S_ISDIR (mode-flags file)))
160    
161  (defmethod directory-p ((filename string))  (defmethod directory-p ((filename string))
162    (directory-p (stat filename)))    (directory-p (stat filename)))
163    
164    (defmethod directory-p ((x null))
165      nil)
166    
167  (defmethod symlink-p ((file file-info))  (defmethod symlink-p ((file file-info))
168    (linux:S_ISLNK (mode-flags file)))    (linux:S_ISLNK (mode-flags file)))
169    
170  (defmethod symlink-p ((filename string))  (defmethod symlink-p ((filename string))
171    (symlink-p (stat filename)))    (symlink-p (stat filename)))
172    
173    (defmethod symlink-p ((x null))
174      nil)
175    
176  (defmethod is-root-p ((file file-info))  (defmethod is-root-p ((file file-info))
177    (and (directory-p file)    (and (directory-p file)
178         (same-file-p file (stat (format nil "~a/.." (file-name file))))))         (same-file-p file (stat (format nil "~a/.." (file-name file))))))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5