From 743d54a758bff32be07d436728cf1ef8c2b74675 Mon Sep 17 00:00:00 2001 From: sterni Date: Mon, 2 Dec 2024 22:57:36 +0100 Subject: [PATCH] refactor(3p/lisp/mime4cl): drop NATIVE-NAMESTRING 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 Tested-by: BuildkiteCI Reviewed-by: sterni --- third_party/lisp/mime4cl/ex-sclf.lisp | 5 ----- 1 file changed, 5 deletions(-) diff --git a/third_party/lisp/mime4cl/ex-sclf.lisp b/third_party/lisp/mime4cl/ex-sclf.lisp index 1719732fb..19b3fa086 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.