From 2b13192a8855e3b59966b41d86f94b614cfafeba Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 5 Jul 2013 18:35:27 +0200 Subject: [PATCH] Remove CODE and transactional support in codegen for it --- src/compiler-codegen.lisp | 5 ----- src/compiler.lisp | 15 +-------------- 2 files changed, 1 insertion(+), 19 deletions(-) diff --git a/src/compiler-codegen.lisp b/src/compiler-codegen.lisp index d624b0e..9bb915d 100644 --- a/src/compiler-codegen.lisp +++ b/src/compiler-codegen.lisp @@ -211,9 +211,6 @@ (let ((op1 (car args)) (op2 (cadr args))) (case op - ;; Transactional compatible operator - (code - (js-format "~a" (apply #'code args))) ;; Accessors (property (js-expr (car args) 0) @@ -389,8 +386,6 @@ (js-format ";"))) (t (case (car form) - (code - (js-format "~a" (apply #'code (cdr form)))) (label (destructuring-bind (label &body body) (cdr form) (js-identifier label) diff --git a/src/compiler.lisp b/src/compiler.lisp index f34b1c1..30e430d 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -41,18 +41,6 @@ (when after-last-p (collect element))))) -(defun code (&rest args) - (mapconcat (lambda (arg) - (cond - ((null arg) "") - ((integerp arg) (integer-to-string arg)) - ((floatp arg) (float-to-string arg)) - ((stringp arg) arg) - (t - (with-output-to-string (*standard-output*) - (js-expr arg))))) - args)) - ;;; Like CODE, but prefix each line with four spaces. Two versions ;;; of this function are available, because the Ecmalisp version is ;;; very slow and bootstraping was annoying. @@ -1446,8 +1434,7 @@ (let ((code (ls-compile sexp multiple-value-p))) `(progn ,@(get-toplevel-compilations) - (code ,code "; -"))))))) + ,code)))))) (defun ls-compile-toplevel (sexp &optional multiple-value-p) (with-output-to-string (*standard-output*) -- 1.7.10.4