From dead14d8e0ceddb307fb535b0fe6be719cda3ee2 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Mon, 24 Jun 2013 17:32:40 +0200 Subject: [PATCH] Remove some calls to CODE --- src/compiler.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index 4b0cd8d..b1065ee 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -117,7 +117,8 @@ (defun gvarname (symbol) (declare (ignore symbol)) - (code "v" (incf *variable-counter*))) + (incf *variable-counter*) + (concat "v" (integer-to-string *variable-counter*))) (defun translate-variable (symbol) (awhen (lookup-in-lexenv symbol *environment* 'variable) @@ -253,7 +254,7 @@ (when name `(= (get func |fname|) ,name)) (when docstring `(= (get func |docstring|) ,docstring)) `(return func)) - `(code ,code))) + code)) (defun lambda-check-argument-count (n-required-arguments n-optional-arguments rest-p) @@ -495,7 +496,8 @@ (defvar *literal-counter* 0) (defun genlit () - (code "l" (incf *literal-counter*))) + (incf *literal-counter*) + (concat "l" (integer-to-string *literal-counter*))) (defun dump-symbol (symbol) #-jscl -- 1.7.10.4