diff options
Diffstat (limited to 'third_party/lisp/sclf/directory.lisp')
| -rw-r--r-- | third_party/lisp/sclf/directory.lisp | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/third_party/lisp/sclf/directory.lisp b/third_party/lisp/sclf/directory.lisp index 39479f6672..4684a8e705 100644 --- a/third_party/lisp/sclf/directory.lisp +++ b/third_party/lisp/sclf/directory.lisp @@ -1,6 +1,7 @@ ;;; directory.lisp --- filesystem directory access ;;; Copyright (C) 2006, 2007, 2008, 2009, 2010 by Walter C. Pelissero +;;; Copyright (C) 2021 by the TVL Authors ;;; Author: Walter C. Pelissero <walter@pelissero.de> ;;; Project: sclf @@ -348,18 +349,12 @@ are defined." (defun stat-modification-time (stat) "Return the modification time of the STAT structure as Lisp Universal Time, which is not the same as the Unix time." - #-(or cmu sbcl) (error "Don't know how to adjust Unix time to Lisp Universal Time.") - (+ #+cmu lisp::unix-to-universal-time - #+sbcl sb-impl::unix-to-universal-time - (stat-mtime stat))) + (unix->universal-time (stat-mtime stat))) (defun stat-creation-time (stat) "Return the creation time of the STAT structure as Lisp Universal Time, which is not the same as the Unix time." - #-(or cmu sbcl) (error "Don't know how to adjust Unix time to Lisp Universal Time.") - (+ #+cmu lisp::unix-to-universal-time - #+sbcl sb-impl::unix-to-universal-time - (stat-ctime stat))) + (unix->universal-time (stat-ctime stat))) (defun file-modification-time (file) "Return the modification time of FILE as Lisp Universal Time, which |