From 2679ee47f7f4c1bb979e9667274e3b6f42927c7f Mon Sep 17 00:00:00 2001
From: D Herring <dherring@at.tentpost.dot.com>
Date: Mon, 13 Jan 2014 21:41:41 -0500
Subject: [PATCH] sampler-parameter bugfix

---
 gl/rasterization.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gl/rasterization.lisp b/gl/rasterization.lisp
index 650d57a..67c2ad5 100644
--- a/gl/rasterization.lisp
+++ b/gl/rasterization.lisp
@@ -294,7 +294,7 @@
           t))
   (defun sampler-parameter (sampler pname param)
     (body sampler
-          %gl:tex-parameter-i %gl:tex-parameter-f %gl:tex-parameter-fv)))
+          %gl:sampler-parameter-i %gl:sampler-parameter-f %gl:sampler-parameter-fv)))
 
 ;;; 3.8.12 Texture Objects
 
-- 
1.8.4