diff options
| author | sterni <sternenseemann@systemli.org> | 2024-12-02T21·57+0100 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2024-12-02T23·09+0000 |
| commit | 743d54a758bff32be07d436728cf1ef8c2b74675 (patch) | |
| tree | ddb176ed13aa2ea67f86a912a6c48c0fe315d868 | |
| parent | 0c87789b31ecca4941b1d4a64a68afd1bc68593a (diff) | |
refactor(3p/lisp/mime4cl): drop NATIVE-NAMESTRING r/8977
The only code that used this function was removed in r/7854. Change-Id: Ia07dcb08ed4a92495085b48018372fb9898a0248 Reviewed-on: https://cl.tvl.fyi/c/depot/+/12860 Autosubmit: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI Reviewed-by: sterni <sternenseemann@systemli.org>
| -rw-r--r-- | third_party/lisp/mime4cl/ex-sclf.lisp | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/third_party/lisp/mime4cl/ex-sclf.lisp b/third_party/lisp/mime4cl/ex-sclf.lisp index 1719732fb3d5..19b3fa0860ab 100644 --- a/third_party/lisp/mime4cl/ex-sclf.lisp +++ b/third_party/lisp/mime4cl/ex-sclf.lisp @@ -270,11 +270,6 @@ ELEMENT-TYPE." ;; FILES -(defun native-namestring (pathname) - #+sbcl (sb-ext:native-namestring pathname) - #-sbcl (let (#+cmu (lisp::*ignore-wildcards* t)) - (namestring pathname))) - ;; FILE-LENGTH is a bit idiosyncratic in this respect. Besides, Unix ;; allows to get to know the file size without being able to open a ;; file; just ask politely. |