floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use defparameter to declare shader variables

Browse source
This commit is contained in:
Renaud Casenave-Péré 2015-08-25 18:11:35 +02:00
parent a3cc27237b
commit b0f45911ab
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
shader/compiler.lisp
View file

@ -26,7 +26,7 @@
"Define a shader defining function.
The newly created shader will be put in a special package: `%stoe.shaders'."
`(progn
(set ',name (%defshader ',lambda-list ',body))
(defparameter ,name (%defshader ',lambda-list ',body))
(when (not (null (glsl-version)))
(mapc (lambda (program)
(delete-program program)
@ -49,7 +49,7 @@ The newly created shader will be put in a special package: `%stoe.shaders'."
`(progn
(when (gethash ',name *programs-table*)
(clean-dep ',name (gethash ',name *programs-table*)))
(set ',name (%defprogram ',lambda-list ',body))
(defparameter ,name (%defprogram ',lambda-list ',body))
(setf (gethash ',name *programs-table*) ',body)
(add-dep ',name ',body)
(when (not (null (glsl-version)))