; --> LET LET LET LET CFFI-SYS:%FOREIGN-FUNCALL-POINTER WITH-ALIEN 
; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET SETQ 
; --> SETF LET* IF LET* SB-ALIEN-INTERNALS:MAYBE-WITH-PINNED-OBJECTS 
; --> PROGN SETF SETQ THE 
; ==>
;   (SB-ALIEN-INTERNALS:DEPORT #:G12 #:G11)
; 
; note: unable to
;   optimize
; because:
;   The type is not constant at compile time; can't open code.
; 
; compilation unit finished
;   printed 2 notes
; in:
;      LAMBDA (CL-OPENGL-BINDINGS::SRCX0 CL-OPENGL-BINDINGS::SRCY0
;          CL-OPENGL-BINDINGS::SRCX1 CL-OPENGL-BINDINGS::SRCY1
;          CL-OPENGL-BINDINGS::DSTX0 CL-OPENGL-BINDINGS::DSTY0
;          CL-OPENGL-BINDINGS::DSTX1 CL-OPENGL-BINDINGS::DSTY1
;          CL-OPENGL-BINDINGS::MASK CL-OPENGL-BINDINGS::FILTER)
;     (CFFI:FOREIGN-FUNCALL-POINTER #.(SB-SYS:INT-SAP #X7FFFF119F2E0)
;                                   (:LIBRARY CL-OPENGL-BINDINGS::OPENGL)
;                                   CL-OPENGL-BINDINGS:INT
;                                   CL-OPENGL-BINDINGS::SRCX0
;                                   CL-OPENGL-BINDINGS:INT
;                                   CL-OPENGL-BINDINGS::SRCY0
;                                   CL-OPENGL-BINDINGS:INT
;                                   CL-OPENGL-BINDINGS::SRCX1
;                                   CL-OPENGL-BINDINGS:INT
;                                   CL-OPENGL-BINDINGS::SRCY1
;                                   CL-OPENGL-BINDINGS:INT ...)
; --> LET LET LET LET LET LET LET LET LET LET 
; --> CFFI-SYS:%FOREIGN-FUNCALL-POINTER WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET SETQ SETF LET* IF 
; --> LET* 
; ==>
;   (SB-ALIEN-INTERNALS:DEPORT-ALLOC #:G24 #:G25)
; 
; note: unable to
;   optimize
; because:
;   The type is not constant at compile time; can't open code.