Merge pull request #243 from metayan/fix-ccl-fn

avoid infinite loop causing crash on CCL
cbaggers · Dec 31, 2020 · 9e77f30 · 9e77f30
2 parents 92f9c75 + cc1c09f
commit 9e77f30
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/vari.glsl/variables-from-spec.lisp b/src/vari.glsl/variables-from-spec.lisp
@@ -1,5 +1,4 @@
 (in-package :vari.glsl)
-(in-readtable fn:fn-reader)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defvar *definitions-missing-from-glsl-spec*
@@ -9,14 +8,15 @@
       )))
 
 (defmacro populate-vars ()
-  (let ((vars (mapcar λ(destructuring-bind
+  (let ((vars (mapcar (lambda (_)
+                        (destructuring-bind
                              (&key lisp-name name type place-p versions
                                    (stage t) &allow-other-keys) _
                          (declare (ignore versions))
                          (assert lisp-name)
                          (let* ((lisp-name (intern lisp-name :vari.glsl))
                                 (lisp-type (parse-gl-type-name type)))
-                           `(,stage ,lisp-name ,name ,lisp-type ,place-p)))
+                           `(,stage ,lisp-name ,name ,lisp-type ,place-p))))
                       (append *definitions-missing-from-glsl-spec*
                               glsl-spec:*variables*))))
 
@@ -25,7 +25,7 @@
          ',(mapcar (lambda (stage-name stage-type-name)
                      (cons stage-type-name
                            (mapcar #'rest (remove-if-not
-                                           λ(eq stage-name _)
+                                           (lambda (_) (eq stage-name _))
                                            vars :key #'first))))
                    (cons t *stage-names*)
                    (cons t *stage-type-names*)))