8000 Alternative for `releaseable?` that doesn't always evaluate to `true`. by EvenMoreIrrelevance · Pull Request #2 · uncomplicate/commons · GitHub
[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
Skip to content

Alternative for releaseable? that doesn't always evaluate to true. #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

Alternative for releaseable? that doesn't always evaluate to true. #2

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
616b700
add `nontrivially-releaseable?`
EvenMoreIrrelevance Jan 29, 2025
21955e3
Add note to `releaseable?` docs.
EvenMoreIrrelevance Jan 29, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
14 changes: 13 additions & 1 deletion src/uncomplicate/commons/core.clj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -141,8 +141,20 @@
"
(release [this] "Releases all resources held by this object."))

(let [obj-impl (delay (find-protocol-impl Releaseable (Object.)))]
"Checks whether the implementation of Releaseable for `this` isn't
identical to the catch-all implementations for `nil` and `Object`."
(defn nontrivially-releaseable?
[this]
(and
(some? this)
(not (identical? @obj-impl (find-protocol-impl Releasable this))))))

(defn releaseable?
"Checks whether this is releaseable (in terms of Releaseable protocol)."
"Checks whether this is releaseable (in terms of Releaseable protocol).

Note: pending redefinitions of the `Releaseable` protocol, this function always returns true.
consider `nontrivially-releaseable?` for checking for non-default implementations."
[this]
(satisfies? Releaseable this))

Expand Down
0