6 lines
194 B
Text
6 lines
194 B
Text
|
(let File "test.file"
|
||
|
|
(and
|
||
|
|
(info File)
|
||
|
|
(prinl (stamp (cadr @) (cddr @))) ) # Print date and time in UTC
|
||
|
|
(call 'touch File) ) # Set modification time to "now"
|