From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 2 Aug 2017 09:41:05 +0000 (+0100)
Subject: src/optparse.lisp: Use low-level slot accessor in `option' printer.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/8b8a885a8072a8e840bf99f83ef78b769121dc4a

src/optparse.lisp: Use low-level slot accessor in `option' printer.

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.
---

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