Lint maybe.el
This change had rippling implications.
This commit is contained in:
parent
1c87082648
commit
a35f723d92
12 changed files with 53 additions and 49 deletions
|
|
@ -28,13 +28,13 @@
|
|||
(cl-defun math/triangle-of-power (&key base power result)
|
||||
;; TODO: Assert two of three are set.
|
||||
(cond
|
||||
((maybe/somes? base power result)
|
||||
((maybe-somes? base power result)
|
||||
(error "All three arguments should not be set"))
|
||||
((maybe/somes? power result)
|
||||
((maybe-somes? power result)
|
||||
(message "power and result"))
|
||||
((maybe/somes? base result)
|
||||
((maybe-somes? base result)
|
||||
(log result base))
|
||||
((maybe/somes? base power)
|
||||
((maybe-somes? base power)
|
||||
(expt base power))
|
||||
(t
|
||||
(error "Two of the three arguments must be set"))))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue