From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 7 Aug 2019 16:20:55 +0000 (+0100)
Subject: src/method-proto.lisp: Use new `definst' private-slot-name feature.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/3ee33e04477ace9d13587f28253fb8c6d1c7ed6c

src/method-proto.lisp: Use new `definst' private-slot-name feature.

I missed this when I was fixing up the codegen code.
---

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 7163e8c..d2ab761 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -338,13 +338,10 @@
 
 ;;; Additional instructions.
 
-;; HACK: use gensyms for the `class' and `expr' slots to avoid leaking the
-;; slot names, because `expr' is exported by our package, and `class' is
-;; actually from the `common-lisp' package.
 (definst convert-to-ilayout (stream :export t)
-    (#1=#:class chain-head #2=#:expr)
+    (%class chain-head %expr)
   (format stream "SOD_ILAYOUT(~@<~A, ~_~A, ~_~A~:>)"
-	  #1# (sod-class-nickname chain-head) #2#))
+	  class (sod-class-nickname chain-head) expr))
 
 ;;; Utilities.