[fetter-devel] hmmm....

[Kenny Tilton]

No luck. Right at the top of the file:

(defpackage "OPENGL-LIBRARY" (:use #:COMMON-LISP #:CFFI)
 (:nicknames "GL") (:export "GLSCISSOR" "GLVERTEX3F"))

(in-package "OPENGL-LIBRARY")
(asdf:operate 'asdf:load-op 'verrazano-support)
(cffi:defcstruct irpcchannelbuffer-1 (data :char 0))
(cffi:define-foreign-type long () ':long)
(cffi:define-foreign-type hresult () 'long)
(cffi:define-foreign-type rpcoledatarep () ':unsigned-long)
(cffi:define-foreign-type dword () ':unsigned-long)
(cffi:defcstruct tagrpcolemessage (reserved1 :pointer)
 (datarepresentation rpcoledatarep) (buffer :pointer) (cbbuffer dword)
 (imethod dword) (reserved2 anonymous17266) (rpcflags dword))

and anonymous17266 does not appear again.

btw, the timing of the create was:

; cpu time (non-gc) 256,169 msec (00:04:16.169) user, 841 msec system
; cpu time (gc)     20,008 msec user, 220 msec system
; cpu time (total)  276,177 msec (00:04:36.177) user, 1,061 msec system
; real time  364,534 msec (00:06:04.534)
; space allocation:
;  352,492,413 cons cells, 552,004,584 other bytes, 8,447 static bytes


I am going to take a break to look at cl-sockets now, then try Verrazano 
on FTGL later on.

kenny

ps. I will send you the latest files next.