From 9dcfb31a53263811e98a2ac2a3c5271537bfed0d Mon Sep 17 00:00:00 2001 From: William Robinson Date: Sun, 21 Oct 2007 16:51:53 +0100 Subject: [PATCH] Silently fail if load-extension extension doesn't have anything to load. Bug-fix on wrong extensions being cached if run before context active. --- lib/opengl-extensions.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/opengl-extensions.lisp b/lib/opengl-extensions.lisp index 701fa5b..93b25fd 100644 --- a/lib/opengl-extensions.lisp +++ b/lib/opengl-extensions.lisp @@ -15,7 +15,7 @@ (read-from-string (format nil "(~a)" (gl:get-string gl:+extensions+))))))) (defun available-extensions () - (if (and *available* (not (eql *available* '(nil)))) + (if (and *available* (not (equal *available* '(""))) (not (eql *available* '(nil)))) *available* (scan-available-extensions))) @@ -29,5 +29,7 @@ otherwise, nil." (let ((extension (extension-available-p extension))) (when extension - (asdf:oos 'asdf:load-op (string-downcase (format nil "cl-glfw-opengl-~a" extension))) + (handler-case + (asdf:oos 'asdf:load-op (string-downcase (format nil "cl-glfw-opengl-~a" extension))) + (asdf:missing-component () (warn "Extension ~a has nothing to load~%" extension))) t))) \ No newline at end of file -- 2.11.4.GIT