changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > demo / examples/clos/fast-def.lisp

changeset 44: 99d4ab4f8d53
parent: 6b652d7d6663
author: Richard Westhaver <ellis@rwest.io>
date: Sun, 11 Aug 2024 01:50:18 -0400
permissions: -rw-r--r--
description: update 
     1 (in-package :examples/clos/fast)
     2 
     3 (defgeneric binary-+ (x y)
     4   (:generic-function-class fast-generic-function))
     5 
     6 (defmethod binary-+ ((x fixnum) (y fixnum))
     7   (declare (method-properties inlineable))
     8    (the fixnum (+ x y)))