13 lines
292 B
Plaintext
13 lines
292 B
Plaintext
|
|
(defn load-file [file]
|
|
"Load the Lisp file named FILE."
|
|
(eval (read-string (str "(do " (slurp file) "\nnil)"))))
|
|
|
|
(defn load [file]
|
|
"Load the Lisp file named FILE."
|
|
(eval (read-string (str "(let* [] (do " (slurp file) "))"))))
|
|
|
|
;; Local Variables:
|
|
;; eval: (emacs-lisp-mode)
|
|
;; End:
|