Add support for printing functions

diff --git a/common_lisp/printer.lisp b/common_lisp/printer.lisp
index 7a1021f..18a3c1c 100644 (file)
--- a/common_lisp/printer.lisp
+++ b/common_lisp/printer.lisp
@@ -42,4 +42,5 @@
       (types:list (pr-mal-sequence "(" ast ")"))
       (types:vector (pr-mal-sequence "[" ast "]"))
       (types:hash-map (pr-mal-hash-map ast))
+      (types:fn "#<function>")
       (types:builtin-fn "#<builtin function>"))))

diff --git a/common_lisp/types.lisp b/common_lisp/types.lisp
index 3853ac4..34979b9 100644 (file)
--- a/common_lisp/types.lisp
+++ b/common_lisp/types.lisp
@@ -75,11 +75,15 @@
 (define-mal-type symbol)
 (define-mal-type keyword)
 (define-mal-type string)
+;; TODO true, false and nil should ideally be singleton
 (define-mal-type boolean)
+(define-mal-type nil)
+
 (define-mal-type list)
 (define-mal-type vector)
 (define-mal-type hash-map)
-(define-mal-type nil)
+
+(define-mal-type fn)
 (define-mal-type builtin-fn)
 
 ;; Generic type