Add printer for built-in functions

diff --git a/common_lisp/printer.lisp b/common_lisp/printer.lisp
index 21e582d..7a1021f 100644 (file)
--- a/common_lisp/printer.lisp
+++ b/common_lisp/printer.lisp
@@ -41,4 +41,5 @@
       (types:keyword (format nil ":~a" (types:mal-value ast)))
       (types:list (pr-mal-sequence "(" ast ")"))
       (types:vector (pr-mal-sequence "[" ast "]"))
-      (types:hash-map (pr-mal-hash-map ast)))))
+      (types:hash-map (pr-mal-hash-map ast))
+      (types:builtin-fn "#<builtin function>"))))

diff --git a/common_lisp/types.lisp b/common_lisp/types.lisp
index 8c5fc47..b97ae8c 100644 (file)
--- a/common_lisp/types.lisp
+++ b/common_lisp/types.lisp
@@ -15,6 +15,7 @@
            :list
            :vector
            :hash-map
+           :builtin-fn
            :any
            ;; Helpers
            :apply-unwrapped-values
@@ -79,6 +80,7 @@
 (define-mal-type vector)
 (define-mal-type hash-map)
 (define-mal-type nil)
+(define-mal-type builtin-fn)
 
 ;; Generic type
 (defvar any "any-type")