X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/180bfa7ca8efeb1297a0bc3f0ff55b02b4e40f9b..93348ae9e276dec213b5d543338b1e2c53a7b687:/src/class-layout-proto.lisp

diff --git a/src/class-layout-proto.lisp b/src/class-layout-proto.lisp
index 19bb897..a4ca263 100644
--- a/src/class-layout-proto.lisp
+++ b/src/class-layout-proto.lisp
@@ -169,7 +169,7 @@
    CHAIN-HEAD.  The CHAIN-TAIL is the most specific superclass of SUBCLASS on
    this chain.  The ENTRIES are a list of `method-entry' objects."))
 
-(export 'compte-vtmsgs)
+(export 'compute-vtmsgs)
 (defgeneric compute-vtmsgs (class subclass chain-head chain-tail)
   (:documentation
    "Return a `vtmsgs' object containing method entries for CLASS.