From 6d1fafc608a1b59ed0e49cdb6cb508428fbe100b Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 15 Feb 2009 19:48:07 +0100 Subject: [PATCH] Minor correction in comments. --- src/cmp/cmpinline.lsp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpinline.lsp b/src/cmp/cmpinline.lsp index 05b4808e9..7504a2313 100644 --- a/src/cmp/cmpinline.lsp +++ b/src/cmp/cmpinline.lsp @@ -89,9 +89,8 @@ (incf *inline-blocks*) (setq loc var) (push (list (loc-type loc) loc) locs)) - ;; FIXME! Why is (make-temp-var) before rebinding of *temp*??? - (let* ((temp (make-temp-var)) - ;; bindings like c1expr* + (let* ((temp (make-temp-var)) ;; output value + ;; bindings like c2expr* (*exit* (next-label)) (*unwind-exit* (cons *exit* *unwind-exit*)) (*lcl* *lcl*)