Added numeric? to test if something is numeric

PRIMITIVES.md

@@ -70,6 +70,7 @@ Note that functions have their names mangled a little bit ("-" is converted to "
 
 * Type checking functions:
   * `char?`, `cons?`, `float?`, `int?`, `lambda?`, `nil?`, and `str?`.
+  * The `numeric?` primitive will return true for ints, floats, and characters.
 * mathematical operations  `*`, `+`, `-`, and `/`.
   * These work against integers, floating point numbers, or mixed operands.
 * (Integer) comparison operations

compiler/compiler.go

@@ -270,6 +270,8 @@ func (c *Compiler) asmName(name string) string {
 		return "lambdap"
 	case "nil?":
 		return "nilp"
+	case "numeric?":
+		return "numericp"
 	case "str?":
 		return "strp"
 	}

compiler/template.tmpl

@@ -242,6 +242,23 @@ strp:
     jmp is_type
 
 
+;; numeric?
+numericp:
+    mov rax, rdi
+    GET_TAG_BITS rax
+    call is_numeric
+    cmp rax, 0
+    jnz .true
+.nil:
+    xor rax, rax
+    TAG_NIL_REG rax
+    ret
+.true:
+    mov rax, 1
+    TAG_INTEGER_REG rax
+    ret
+
+
 ;; Internal helper
 is_numeric:
     cmp rax,TAG_ID_INTEGER

test/numeric.lisp

@@ -0,0 +1,8 @@
+(defun main ()
+  (println (numeric? 3))
+  (println (numeric? 3.0))
+  (println (numeric? #\a))
+  (println (numeric? (lambda (x) x)))
+  (println (numeric? nil))
+  (println (numeric? (list 3 4 )))
+  (println (numeric? "string")))

test/numeric.test.expected

@@ -0,0 +1,7 @@
+1
+1
+1
+<nil>
+<nil>
+<nil>
+<nil>