Arithmatic

src/hashtable.c

@@ -31,6 +31,10 @@ void release_hash_table_no_gc(LispVal *val) {
     lisp_free(ht);
 }
 
+DEFUN(hash_table_p, "hash-table-p", (LispVal * val), "(val)", "") {
+    return HASH_TABLE_P(val) ? Qt : Qnil;
+}
+
 DEFUN(make_hash_table, "make-hash-table", (LispVal * hash_fn, LispVal *eq_fn),
       "(hash-fn eq-fn)", "") {
     LispHashTable *obj =