cfunction
src/core/os.c on line 2502 , column 1
(defn recent-mods
"List the files in the current directory which have changed within the last hour."
[]
(filter
(fn [fname ]
(<
(- (os/time ) 3600 )
(os/stat fname :modified )))
(os/dir "." )))
(defn ls-sockets
"List the sockets in the current directory."
[]
(filter
(fn [fname ] (= :socket (os/stat fname :mode )))
(os/dir "." )))
(os/shell "touch foo" )
(os/stat "foo" :modified ) # => 1593836002
(os/touch "foo" )
(os/stat "foo" :modified ) # => 1593836013