1.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2+++ b/examples/clos/fast-def.lisp	Sun Apr 14 20:48:05 2024 -0400
     1.3@@ -0,0 +1,8 @@
     1.4+(in-package :examples/clos/fast)
     1.5+
     1.6+(defgeneric binary-+ (x y)
     1.7+  (:generic-function-class fast-generic-function))
     1.8+
     1.9+(defmethod binary-+ ((x fixnum) (y fixnum))
    1.10+  (declare (method-properties inlineable))
    1.11+   (the fixnum (+ x y)))