[cl-opengl-devel] Clozure and cl-opengl

[Greg Santucci]

--- On Tue, 2/6/09, Luís Oliveira <luismbo at gmail.com> wrote:

> > Is cl-opengl supposed to work with Clozure? I'm
> running Clozure on Win32,
> > and I'm able to load cl-opengl using (asdf:oos
> 'asdf:load-op :cl-glut-
> > examples), however upon running one of the examples
> Clozure crashes out to
> > its kernel debugger.
> 
> Yes, and it works for me on Linux/x86-64. I do not have
> access to a
> Windows system at the moment. Perhaps you could paste a
> backtrace?
> 

Certainly.

Exception on foreign stack

Exception occurred while executing foreign code
? for help
[7560] Clozure CL kernel debugger: B
current thread: tcr = 0x5cb310, native thread ID = 0x1980, interrupts enabled


(#x00B80D44) #x08DC69A5 : #<Function %GLUTMAINLOOP #x08DC6946> + 95
(#x00B80D4C) #x08DC676D : #<Function MAIN-LOOP #x08DC6756> + 23
(#x00B80D54) #x081139A5 : #<Function %%STANDARD-COMBINED-METHOD-DCODE #x081136FE> + 679
(#x00B80D8C) #x083686DD : #<Function CALL-CHECK-REGS #x083685E6> + 247
(#x00B80DA8) #x083744B5 : #<Function TOPLEVEL-EVAL #x083741C6> + 751
(#x00B80DE8) #x08375E25 : #<Function READ-LOOP #x0837570E> + 1815
(#x00B80EFC) #x0836832D : #<Function TOPLEVEL-LOOP #x083682E6> + 71
(#x00B80F04) #x08318175 : #<Function (:INTERNAL (TOPLEVEL-FUNCTION (LISP-DEVELOPMENT-SYSTEM T))) #x08318116> + 95
(#x00B80F14) #x083D945D : #<Function (:INTERNAL MAKE-MCL-LISTENER-PROCESS) #x083D9216> + 583
(#x00B80F60) #x08330A95 : #<Function RUN-PROCESS-INITIAL-FORM #x083307F6> + 671
(#x00B80FA4) #x083312E5 : #<Function (:INTERNAL %PROCESS-PRESET-INTERNAL) #x08331196> + 335
(#x00B80FCC) #x083061BD : #<Function (:INTERNAL THREAD-MAKE-STARTUP-FUNCTION) #x083060A6> + 279
[7560] Clozure CL kernel debugger:


Here are the messages that appeared when loading cl-opengl with 
(asdf:operate 'asdf:load-op :cl-glut-examples)

; loading system definition from C:/lispbox/packages/cl-opengl/cl-glut-examples.asd into #<Package "ASDF0">
; registering #<SYSTEM CL-GLUT-EXAMPLES #x8A74C2E> as CL-GLUT-EXAMPLES
; loading system definition from C:/lispbox/packages/cl-opengl/cl-glut.asd into #<Package "ASDF0">
; registering #<SYSTEM CL-GLUT #x8A9616E> as CL-GLUT
; loading system definition from C:/lispbox/packages/cl-opengl/cl-opengl.asd into #<Package "ASDF0">
; registering #<SYSTEM CL-OPENGL #x8ABF966> as CL-OPENGL
; loading system definition from C:/lispbox/packages/cffi-090526/cffi.asd into #<Package "ASDF0">
; registering #<SYSTEM CFFI #x8AC93F6> as CFFI
; loading system definition from C:/lispbox/packages/babel_0.3.0/babel.asd into #<Package "ASDF0">
; registering #<SYSTEM BABEL #x8A6415E> as BABEL
; loading system definition from C:/lispbox/packages/alexandria/alexandria.asd into #<Package "ASDF0">
; registering #<SYSTEM :ALEXANDRIA #x8A9F416> as ALEXANDRIA
; loading system definition from C:/lispbox/packages/trivial-features_0.4/trivial-features.asd into #<Package "ASDF0">
; registering #<SYSTEM TRIVIAL-FEATURES #x8AB3456> as TRIVIAL-FEATURES
; loading system definition from C:/lispbox/packages/cl-opengl/cl-glu.asd into #<Package "ASDF0">
; registering #<SYSTEM CL-GLU #x8B37FF6> as CL-GLU
; Warning: Don't know how to setup a hook before saving cores on this Lisp.
; While executing: #<Anonymous Function #x8D980EE>, in process listener(1).
;Compiler warnings for "C:/lispbox/packages/cl-opengl/glu/glu.lisp" :
;   In CL-GLU:UN-PROJECT4: Undefined function CL-GLU::%GLUUNPROJECT4
;Compiler warnings for "C:/lispbox/packages/cffi-090526/src/cffi-openmcl.lisp" :
;   In CFFI-SYS:%CLOSE-FOREIGN-LIBRARY: Undefined function CLOSE-SHARED-LIBRARY
NIL

Regards,
Greg



      Need a Holiday? Win a $10,000 Holiday of your choice. Enter now.http://us.lrd.yahoo.com/_ylc=X3oDMTJxN2x2ZmNpBF9zAzIwMjM2MTY2MTMEdG1fZG1lY2gDVGV4dCBMaW5rBHRtX2xuawNVMTEwMzk3NwR0bV9uZXQDWWFob28hBHRtX3BvcwN0YWdsaW5lBHRtX3BwdHkDYXVueg--/SIG=14600t3ni/**http%3A//au.rd.yahoo.com/mail/tagline/creativeholidays/*http%3A//au.docs.yahoo.com/homepageset/%3Fp1=other%26p2=au%26p3=mailtagline