diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-27 15:23:35 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-27 15:23:35 -0500 |
| commit | e5104cf39570605859c3648ed83c37fe647b0e3f (patch) | |
| tree | cb59f1b5d0f0ae9f354982ecfab7e3cf09e9570f /examples/01-bitmap-display.lisp | |
| parent | 2340c1a09895502667c9ba75c3db73b555ef40aa (diff) | |
[example] 1 2 and 3 find the right asset root automatically
Diffstat (limited to 'examples/01-bitmap-display.lisp')
| -rw-r--r-- | examples/01-bitmap-display.lisp | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/examples/01-bitmap-display.lisp b/examples/01-bitmap-display.lisp index 788ae6d..c9e0275 100644 --- a/examples/01-bitmap-display.lisp +++ b/examples/01-bitmap-display.lisp @@ -19,5 +19,9 @@ (defun start () - (ww::start (make-instance 'bitmap-display - :asset-root #P"~/projects/wheelwork/examples/"))) + (ww::start + (make-instance + 'bitmap-display + :asset-root (merge-pathnames + "examples/" + (asdf:system-source-directory :wheelwork))))) |