Add (read), improve error reporting
diff --git a/lib/lisp/std/list-functions.lisp b/lib/lisp/std/list-functions.lisp
new file mode 100644
index 0000000..a777401
--- /dev/null
+++ b/lib/lisp/std/list-functions.lisp
@@ -0,0 +1,5 @@
+(defun mapcar (fun list)
+ (if list
+ (cons (funcall fun (car list))
+ (mapcar fun (cdr list)))
+ nil))
diff --git a/lib/lisp/std/std.lisp b/lib/lisp/std/std.lisp
index 388637b..d995f0e 100644
--- a/lib/lisp/std/std.lisp
+++ b/lib/lisp/std/std.lisp
@@ -23,7 +23,7 @@
;; Instead of a function this is a macro for a slight performance increase
(defmacro not (val)
- (nilp val))
+ (list 'nilp val))
;; TODO: make tail recursive (for this `flet` would be nice)
(defun length (list)
@@ -46,3 +46,10 @@
(list 'if cond
nil
(cons 'progn body)))
+
+(defun read ((stream nil))
+ (if (not stream)
+ (read-stdin)))
+
+(print "Loading list functions")
+(print (load "list-functions.lisp"))