From a30a11466b46d7b61694ac77288d25ba4c897b7b Mon Sep 17 00:00:00 2001 From: David Pearce Date: Thu, 23 Jan 2025 14:27:52 +1300 Subject: [PATCH] feat: drop specialisations for `eq` and `eq!` (#590) drop specialisations for `eq` and `eq!` Since these are never used, they are now dropped. --- pkg/corset/stdlib.lisp | 2 -- 1 file changed, 2 deletions(-) diff --git a/pkg/corset/stdlib.lisp b/pkg/corset/stdlib.lisp index 44e356ec..f429b3c2 100644 --- a/pkg/corset/stdlib.lisp +++ b/pkg/corset/stdlib.lisp @@ -21,12 +21,10 @@ (defpurefun ((not :binary@bool :force) (x :binary)) (- 1 x)) -(defpurefun ((eq! :binary@loob :force) (x :binary) (y :binary)) (^ (- x y) 2)) (defpurefun ((eq! :@loob) x y) (- x y)) (defpurefun ((neq! :binary@loob :force) x y) (not (~ (eq! x y)))) (defunalias = eq!) -(defpurefun ((eq :binary@bool :force) (x :binary) (y :binary)) (- 1 (^ (- x y) 2))) (defpurefun ((eq :binary@bool :force) x y) (- 1 (~ (eq! x y)))) (defpurefun ((neq :binary@bool :force) x y) (eq! x y))