12 lines
425 B
Common Lisp
12 lines
425 B
Common 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))
|
||
|
|
|
||
|
|
(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)))
|