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

[sod] / src / method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 7163e8cf4a09a5544406bd2cd5a555e228f372ba..d2ab7610f298596b5c3963e0173d05e1b674bba8 100644 (file)
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -338,13 +338,10 @@ (defgeneric simple-method-body (method codegen target)
 
 ;;; Additional instructions.
 
 
 ;;; 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)
 (definst convert-to-ilayout (stream :export t)

-    (#1=#:class chain-head #2=#:expr)
+    (%class chain-head %expr)

   (format stream "SOD_ILAYOUT(~@<~A, ~_~A, ~_~A~:>)"
   (format stream "SOD_ILAYOUT(~@<~A, ~_~A, ~_~A~:>)"

-         #1# (sod-class-nickname chain-head) #2#))
+         class (sod-class-nickname chain-head) expr))

 
 ;;; Utilities.
 
 
 ;;; Utilities.