[Openmcl-devel] opengl macptr advice please

[Joshua Kordani]

On 3/15/17 9:26 PM, R. Matthew Emerson wrote:

> (rletz ((params (:array #>GLfloat 2)))
>      (setf (paref params (:* #>GLfloat) 0) 100.0)
>      (setf (paref params (:* #>GLfloat) 1) 200.0)
>      (values (paref params (:* #>GLfloat) 0)
>              (paref params (:* #>GLfloat) 1)))

Running 10.11 here.. I get the following..

Welcome to Clozure Common Lisp Version 1.11-r16635  (DarwinX8664)!

CCL is developed and maintained by Clozure Associates. For more information
about CCL visit http://ccl.clozure.com.  To enquire about Clozure's 
Common Lisp
consulting services e-mail info at clozure.com or visit http://www.clozure.com.

? (ccl:%stack-block ((params 8))
   (#_glGetFloatv #$GL_ALIASED_LINE_WIDTH_RANGE params)
   (values (%get-single-float params 0)
         (%get-single-float params 4)))

 > Error: Foreign function not found: X86-DARWIN64::|glGetFloatv|
 > While executing: CCL::LOAD-EXTERNAL-FUNCTION, in process listener(1).
 > Type :POP to abort, :R for a list of available restarts.
 > Type :? for other options.
1 > > Error: Unbound variable: PARAMS
 > While executing: CCL::CHEAP-EVAL-IN-ENVIRONMENT, in process listener(1).
 > Type :GO to continue, :POP to abort, :R for a list of available restarts.
 > If continued: Retry getting the value of PARAMS.
 > Type :? for other options.
2 > :q
? (rletz ((params (:array #>GLfloat 2)))
     (setf (paref params (:* #>GLfloat) 0) 100.0)
     (setf (paref params (:* #>GLfloat) 1) 200.0)
     (values (paref params (:* #>GLfloat) 0)
             (paref params (:* #>GLfloat) 1)))
 > Error: Unknown foreign type: :<GL>FLOAT
 > While executing: CCL::%PARSE-FOREIGN-TYPE, in process listener(1).
 > Type :POP to abort, :R for a list of available restarts.
 > Type :? for other options.
1 >

Dunno if that is your crash.  I was under the impression that ccl built 
a foreign library database from some system headers and that included 
opengl in the past, but I might be wrong.

Josh