Verified Commit 161d6160 authored by Philipp Marek's avatar Philipp Marek Committed by Vladimir Sedach
Browse files

Provide STRINGP, CHARACTERP, ZEROP, PLUSP, and MINUSP.

parent 83e1cda7
......@@ -37,6 +37,24 @@
(setf idx (1+ idx)))
result))
(defun stringp (v)
(string= (typeof v) "string"))
(defun characterp (v)
(string= (typeof v) "string"))
(defun zerop (num)
"Return whether NUM is zero."
(= num 0))
(defun plusp (num)
"Return whether NUM is positive."
(> num 0))
(defun minusp (num)
"Return whether NUM is negative."
(< num 0))
(defun member (item arr)
"Check if ITEM is a member of ARR."
(dolist (el arr)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment