On Thu 11 Nov 2010 17:24, l...@gnu.org (Ludovic Courtès) writes: > (define-wrapped-pointer-type class? > wrap-class unwrap-class print-class)
Looks great! Would be a great addition to system foreign. > (with-syntax ((type-name (datum->syntax #'pred (gensym))) > (%wrap (datum->syntax #'wrap (gensym)))) > #'(begin > (define-record-type type-name > (%wrap pointer) > pred > (pointer unwrap)) You wouldn't need to do the gensym dance if we fixed Andreas' bug (https://savannah.gnu.org/bugs/?31472), I don't think... Andy -- http://wingolog.org/
