Skip to content

Commit

Permalink
Update ~and! / ~or! to binary@loob
Browse files Browse the repository at this point in the history
  • Loading branch information
DavePearce committed Dec 19, 2023
1 parent 80d014a commit 1906cea
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/stdlib.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -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))

Expand Down

0 comments on commit 1906cea

Please sign in to comment.