Skip to content
Permalink
Browse files

Minor

  • Loading branch information...
Shinmera committed Aug 12, 2019
1 parent 318c916 commit 3be2aec4bb053f08a7ba1237866899148a4cca8d
Showing with 4 additions and 2 deletions.
  1. +1 −1 assets/font.lisp
  2. +3 −1 package.lisp
@@ -46,7 +46,7 @@

(defmethod load ((font font))
(let ((handle (cl-fond::calloc '(:struct cl-fond-cffi:font)))
(file (uiop:native-namestring (coerce-asset-input font T))))
(file (uiop:native-namestring (input* font))))
(with-cleanup-on-failure (deallocate font)
(setf (cl-fond:handle font) handle)
(setf (cl-fond-cffi:font-file handle) (cffi:foreign-string-alloc file :encoding :utf-8))
@@ -61,7 +61,9 @@
#:shader-program
#:uniform-map
#:shaders
#:uniform)
#:uniform
#:uniform-location
#:uniforms)
;; resources/shader.lisp
(:export
#:shader

0 comments on commit 3be2aec

Please sign in to comment.
You can’t perform that action at this time.