(slot-value (make-instance 'foo-op) 'gather-type) ;-> :object Works OK for me. I think that the problem is somewhere with your make-operation and gather-type functions indirection magic (I'm not saying its not triggered by some bug in ECL, but it's doesn't look like a problem with allocation).
Faré writes: > I'm facing an "interesting" bug in ECL: in my branch of cffi at > https://github.com/fare/cffi > I try to define a static-image-op that has gather-operation > 'compile-op and gather-type :object because I want to force all > objects to be linked, and using the same 'lib-op and :static-library > as image-op cause objects unreferenced by ECL to be dropped. However, > though I override these slots in my defclass, they don't seem > effective. > > (require "asdf") > (asdf:load-system :cffi-toolchain) > > (in-package :cffi-toolchain) > (uiop-debug) > > (defclass foo-op (image-op) > ((gather-type :initform :object :allocation :class))) > > (defun g (o) (asdf/bundle::gather-type (make-operation o))) > > (DBG :foo > (g 'image-op) ;==> :static-library, as expected > (g 'static-image-op) ;==> :static-library, but expected :object > (g 'static-program-op) ;==> :static-library, but expected :object > (g 'foo-op)) ;==> :static-library, but expected :object > > I tried to extract a smaller test case by recreating in a file the > hierarchy of static-image-op, keeping only the definitions and > overrides for slot gather-type, but then it worked. Maybe the > combination of eval-when's and/or the compilation and loading play a > role in making the bug happen. > > —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org > The only way for a reporter to look at a politician is down. > — H.L. Mencken -- Daniel Kochmański ;; aka jackdaniel | Przemyśl, Poland TurtleWare - Daniel Kochmański | www.turtleware.eu "Be the change that you wish to see in the world." - Mahatma Gandhi
