Jonathan Bailleul wrote: > > > Sorry to rush in the topic, but can someone give me exact code for this > module? (especially concerning the eval-when) > I would like to see it running and then look in the documentation what > means what (eval-when, defknown, define-vop... ) >
Seems backwards, but I think this is what you want (untested): (in-package :vm) (eval-when (:compile-toplevel :load-toplevel :execute) (defknown fixnum+ (fixnum fixnum) fixnum (movable foldable flushable)) (define-vop (fixnum-add fast-+/fixnum=>fixnum) (:translate fixnum+)) ) (defun fixnum+ (x y) (declare (fixnum x y)) (fixnum+ x y)) Ray
