From 6a9c2d95f7fedf24210efe480d76f00656c9b7aa Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 6 Jul 2013 01:34:58 +0200 Subject: [PATCH 1/1] Remove some transitional changes --- src/compiler.lisp | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index a662d4d..0b6ad0f 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -420,8 +420,6 @@ (eq (binding-type b) 'variable) (not (member 'special (binding-declarations b))) (not (member 'constant (binding-declarations b)))) - ;; TODO: Unnecesary make-symbol when codegen migration is - ;; finished. `(= ,(binding-value b) ,(convert val))) ((and b (eq (binding-type b) 'macro)) (convert `(setf ,var ,val))) @@ -505,9 +503,7 @@ (cond ((integerp sexp) sexp) ((floatp sexp) sexp) - ((characterp sexp) - ;; TODO: Remove selfcall after migration - `(selfcall (return ,(string sexp)))) + ((characterp sexp) (string sexp)) (t (or (cdr (assoc sexp *literal-table* :test #'eql)) (let ((dumped (typecase sexp @@ -538,9 +534,6 @@ (define-compilation %while (pred &rest body) `(selfcall (while (!== ,(convert pred) ,(convert nil)) - 0 ; TODO: Force - ; braces. Unnecesary when code - ; is gone ,(convert-block body)) (return ,(convert nil)))) @@ -885,7 +878,6 @@ (define-compilation multiple-value-prog1 (first-form &rest forms) `(selfcall (var (args ,(convert first-form *multiple-value-p*))) - ;; TODO: Interleave is temporal (progn ,@(mapcar #'convert forms)) (return args))) -- 1.7.10.4