Skip to content

Instantly share code, notes, and snippets.

@siefca
siefca / outof.clj
Created July 23, 2021 23:35
Outof function, reverse of into
(defn outof
([] [])
([of] of)
([of what]
(if (instance? clojure.lang.IEditableCollection of)
(with-meta (persistent! (reduce disj! (transient of) what)) (meta of))
(reduce disj of what)))
([of xform what]
(if (instance? clojure.lang.IEditableCollection of)
(with-meta (persistent! (transduce xform disj! (transient of) what)) (meta of))
@siefca
siefca / streq.c
Last active August 5, 2021 11:09
streq
#include <string.h>
#undef streq
#ifndef STREQ
# define STREQ streq
#endif
int
STREQ (const char *p1, const char *p2)
@siefca
siefca / ccache-66.patch
Created April 19, 2024 13:01
CCACHE-66
From c7beb5c57d51c33747c0d1331ef25787a24779be Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Wilk?= <[email protected]>
Date: Fri, 19 Apr 2024 14:52:00 +0200
Subject: [PATCH] CCACHE-66: Improved equality checks for keywords
---
src/main/clojure/clojure/core/cache.clj | 6 +++---
src/main/clojure/clojure/core/cache/wrapped.clj | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)