Sfoglia il codice sorgente

Correct relative system font load

Lily Carpenter 9 anni fa
parent
commit
739f1233f3
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      src/crypts-and-corpses.lisp

+ 1 - 1
src/crypts-and-corpses.lisp

410
   (terminal-open)
410
   (terminal-open)
411
   (terminal-set "window: size=99x40, title='Crypts and Corpses'")
411
   (terminal-set "window: size=99x40, title='Crypts and Corpses'")
412
   (terminal-set (format nil "font: ~SDejaVuSansMono.ttf, size=16"
412
   (terminal-set (format nil "font: ~SDejaVuSansMono.ttf, size=16"
413
-                        (asdf:system-relative-pathname :crypts-and-corpses "fonts/")))
413
+                        (namestring (asdf:system-relative-pathname :crypts-and-corpses "fonts/"))))
414
   (intro-message)
414
   (intro-message)
415
   (main-loop)
415
   (main-loop)
416
   (terminal-close))
416
   (terminal-close))