From 49aee7a8f283069a3b47a2617a448389fe8c4373 Mon Sep 17 00:00:00 2001 From: sterni Date: Mon, 4 Jul 2022 15:56:52 +0200 Subject: chore: remove sclf from the tree MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit SCLF is quite a big utility library (almost 3€ LOC) with limited portability (CMUCL, SBCL and CLISP to an extent). Continuing to maintain it is an unnecessary burden, as depot only uses a fraction of it which is now inlined into the respective users (mime4cl and mblog). In the future trimming down ex-sclf.lisp may make sense either by refactoring the code that uses it or by moving interesting utilities into e.g. klatre. Change-Id: I2e73825b6bfa372e97847f25c30731a5aad4a1b5 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5922 Tested-by: BuildkiteCI Autosubmit: sterni Reviewed-by: sterni --- users/sterni/mblog/mblog.lisp | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'users/sterni/mblog/mblog.lisp') diff --git a/users/sterni/mblog/mblog.lisp b/users/sterni/mblog/mblog.lisp index 1f971bc121d2..4ca0df2392a1 100644 --- a/users/sterni/mblog/mblog.lisp +++ b/users/sterni/mblog/mblog.lisp @@ -1,7 +1,23 @@ +;; SPDX-License-Identifier: MIT AND LGPL-2.1-or-later +;; SPDX-FileCopyrightText: Copyright (C) 2006-2010 by Walter C. Pelissero +;; SPDX-FileCopyrightText: Copyright (C) 2022 by sterni (in-package :mblog) ;; util +;; Taken from SCLF, written by Walter C. Pelissero +(defun pathname-as-directory (pathname) + "Converts PATHNAME to directory form and return it." + (setf pathname (pathname pathname)) + (if (pathname-name pathname) + (make-pathname :directory (append (or (pathname-directory pathname) + '(:relative)) + (list (file-namestring pathname))) + :name nil + :type nil + :defaults pathname) + pathname)) + (defmacro with-overwrite-file ((&rest args) &body body) "Like WITH-OPEN-FILE, but creates/supersedes the given file for writing." `(with-open-file (,@args :direction :output -- cgit 1.4.1