tdeck-ulisp/ext.lisp

;; start is the intended function to load this ext.lisp file
;; I use `(save-image 'start)` 
(defun start () (load-package "ext.lisp"))

;; Quick shorthand 
(defun dir () (directory))

;; File manipulation
(defun file-read (filename) (with-sd-card (str filename) (read str)))
(defun file-append (filename data) (with-sd-card (str filename 2) (print data str)))
(defun file-write (filename data) (with-sd-card (str filename 2) (print data str)))

;; Maths
(defun sq (x) (* x x))