Everywhere: Add docstring support

lisp/load.bl

@@ -1,9 +1,11 @@
 
-(defn load-file [filename]
-  (eval (read-string (str "(do " (slurp filename) "\nnil)"))))
+(defn load-file [file]
+  "Load the Lisp file named FILE."
+  (eval (read-string (str "(do " (slurp file) "\nnil)"))))
 
-(defn load [filename]
-  (eval (read-string (str "(let* [] (do " (slurp filename) "))"))))
+(defn load [file]
+  "Load the Lisp file named FILE."
+  (eval (read-string (str "(let* [] (do " (slurp file) "))"))))
 
 ;; Local Variables:
 ;; eval: (emacs-lisp-mode)

lisp/other.bl

@@ -1,5 +1,5 @@
 
-(def! *host-language* "C++")
+(def *host-language* "C++")
 
 ;; Local Variables:
 ;; eval: (emacs-lisp-mode)

lisp/predicate.bl

@@ -1,6 +1,7 @@
 
-(defn not [cond]
-  (if cond false true))
+(defn not [object]
+  "Return true if OBJECT is nil or false, and return false otherwise."
+  (if object false true))
 
 ;; Local Variables:
 ;; eval: (emacs-lisp-mode)