From 8b8a885a8072a8e840bf99f83ef78b769121dc4a Mon Sep 17 00:00:00 2001 Message-Id: <8b8a885a8072a8e840bf99f83ef78b769121dc4a.1715510306.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 2 Aug 2017 10:41:05 +0100 Subject: [PATCH] src/optparse.lisp: Use low-level slot accessor in `option' printer. Organization: Straylight/Edgeware From: Mark Wooding If I try to use the access wrapper, I get compiler warnings about how the previous use of the function wasn't inlined; but if I declare the wrapper earlier then it might not inline anything. The printer is rarely used, so this isn't a bad place to be. --- src/optparse.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/optparse.lisp b/src/optparse.lisp index 16b5b7b..fff0e88 100644 --- a/src/optparse.lisp +++ b/src/optparse.lisp @@ -165,7 +165,7 @@ (defstruct (option (opt-long-name o) (opt-arg-optional-p o) (opt-arg-name o) - (opt-documentation o))))) + (opt-%documentation o))))) (:constructor %make-option (&key long-name tag negated-tag short-name arg-name arg-optional-p documentation -- [mdw]