From 302297cfe3f475a826a020433c3243ae82b1070a Mon Sep 17 00:00:00 2001 From: sterni Date: Mon, 2 Dec 2024 23:19:01 +0100 Subject: [PATCH] fix(3p/lisp/mime4cl): fix stat function name in FILE-SIZE This is a silly mistake and was not caught because FILE-SIZE isn't exercised in the test suite. We can probably remove MIME-BODY-SIZE and look into removing MIME-PART-SIZE as well. I just want to be thorough here so that we can revert into a non-broken state in case we decide we need those functions for something. Change-Id: I5bbb3dde6616220fc3b6feddbf7a39b6a9b0ea0d Reviewed-on: https://cl.tvl.fyi/c/depot/+/12861 Autosubmit: sterni Reviewed-by: sterni Tested-by: BuildkiteCI --- third_party/lisp/mime4cl/ex-sclf.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/third_party/lisp/mime4cl/ex-sclf.lisp b/third_party/lisp/mime4cl/ex-sclf.lisp index 19b3fa086..bf5b157d1 100644 --- a/third_party/lisp/mime4cl/ex-sclf.lisp +++ b/third_party/lisp/mime4cl/ex-sclf.lisp @@ -32,7 +32,6 @@ (defpackage :mime4cl-ex-sclf (:use :common-lisp) - (:import-from :sb-posix :stat :stat-size) (:export #:aif @@ -274,7 +273,7 @@ ELEMENT-TYPE." ;; allows to get to know the file size without being able to open a ;; file; just ask politely. (defun file-size (pathname) - #+sbcl (stat-size (unix-stat pathname)) + #+sbcl (sb-posix:stat-size (sb-posix:stat pathname)) #-sbcl (error "nyi")) ;; LAZY