From 175267bd7721b0a1cf4958f036152f4a39559c8f Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] src/codegen-impl.lisp: Rename some `inst' slots. Mostly to make them shorter. --- src/codegen-impl.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/codegen-impl.lisp b/src/codegen-impl.lisp index c4f83e1..d988b12 100644 --- a/src/codegen-impl.lisp +++ b/src/codegen-impl.lisp @@ -80,18 +80,18 @@ ;; package. The `definst' machinery will symbolicate the various associated ;; methods correctly despite this subterfuge. -(definst if (stream :export t) (#1=#:condition consequent alternative) - (format-compound-statement (stream consequent alternative) +(definst if (stream :export t) (#1=#:cond conseq alt) + (format-compound-statement (stream conseq alt) (format stream "if (~A)" #1#)) - (when alternative - (format-compound-statement (stream alternative) + (when alt + (format-compound-statement (stream alt) (write-string "else" stream)))) -(definst while (stream :export t) (#1=#:condition body) +(definst while (stream :export t) (#1=#:cond body) (format-compound-statement (stream body) (format stream "while (~A)" #1#))) -(definst do-while (stream :export t) (body #1=#:condition) +(definst do-while (stream :export t) (body #1=#:cond) (format-compound-statement (stream body :space) (write-string "do" stream)) (format stream "while (~A);" #1#)) -- 2.11.0