From 1906ceaefe96ecce753812a29c3d925f60a5ef7c Mon Sep 17 00:00:00 2001 From: DavePearce Date: Tue, 19 Dec 2023 16:12:01 +1300 Subject: [PATCH] Update `~and!` / `~or!` to `binary@loob` --- src/stdlib.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/stdlib.lisp b/src/stdlib.lisp index d46395b..3a77402 100644 --- a/src/stdlib.lisp +++ b/src/stdlib.lisp @@ -17,12 +17,12 @@ (defpurefun (and a b) (* a b)) (defpurefun ((~and :@bool) a b) (~ (and a b))) (defpurefun ((and! :@loob) a b) (+ a b)) -(defpurefun ((~and! :@loob) a b) (~ (and! a b))) +(defpurefun ((~and! :binary@loob) a b) (~ (and! a b))) (defpurefun (or a b) (+ a b)) (defpurefun ((~or :@boolean) a b) (~ (or a b))) (defpurefun ((or! :@loob) a b) (* a b)) -(defpurefun ((~or! :@loob) a b) (~ (or! a b))) +(defpurefun ((~or! :binary@loob) a b) (~ (or! a b))) (defpurefun ((not :@boolean :nowarn) (x :binary)) (- 1 x))