Permalink
Browse files

Eval initargs

  • Loading branch information...
Shinmera committed Jun 17, 2018
1 parent a772daa commit 3d90780976033dbaf3a6e1e4fd73d27a08efbda8
Showing with 1 addition and 1 deletion.
  1. +1 −1 pipeline.lisp
View
@@ -55,7 +55,7 @@
(assert (= 0 (getf texspec :level 0)))
(assert (eql :dynamic (getf texspec :storage :dynamic)))
(let ((initargs (loop for (key val) in (class-default-initargs 'texture)
collect key collect val)))
collect key collect (eval val))))
(loop for (key val) on initargs by #'cddr
collect key
collect (or (getf texspec key)

0 comments on commit 3d90780

Please sign in to comment.