From 3ee33e04477ace9d13587f28253fb8c6d1c7ed6c Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 7 Aug 2019 17:20:55 +0100 Subject: [PATCH] src/method-proto.lisp: Use new `definst' private-slot-name feature. I missed this when I was fixing up the codegen code. --- src/method-proto.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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. -- 2.11.0