mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(3p/lisp/mime4cl): fix stat function name in FILE-SIZE

Browse source 
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 <sternenseemann@systemli.org>
Reviewed-by: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
This commit is contained in:
sterni 2024-12-02 23:19:01 +01:00 committed by clbot
parent 743d54a758
commit 302297cfe3
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
third_party/lisp/mime4cl/ex-sclf.lisp vendored
View file

@ -32,7 +32,6 @@
(defpackage :mime4cl-ex-sclf (defpackage :mime4cl-ex-sclf
(:use :common-lisp) (:use :common-lisp)
(:import-from :sb-posix :stat :stat-size)
(:export (:export
#:aif #:aif
@ -274,7 +273,7 @@ ELEMENT-TYPE."
;; allows to get to know the file size without being able to open a ;; allows to get to know the file size without being able to open a
;; file; just ask politely. ;; file; just ask politely.
(defun file-size (pathname) (defun file-size (pathname)
#+sbcl (stat-size (unix-stat pathname)) #+sbcl (sb-posix:stat-size (sb-posix:stat pathname))
#-sbcl (error "nyi")) #-sbcl (error "nyi"))
;; LAZY ;; LAZY