From 1a5444eb3994e1de0ffd3fb84e67bd6434193fff Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 6 May 2010 08:41:19 +0200 Subject: [PATCH] Removed debug statements from cmparray.lsp and fixed typo in ARRAY-DIMENSION-ACCESSOR --- src/cmp/cmparray.lsp | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/src/cmp/cmparray.lsp b/src/cmp/cmparray.lsp index 16b07cdac..2f50f3a1f 100644 --- a/src/cmp/cmparray.lsp +++ b/src/cmp/cmparray.lsp @@ -88,13 +88,9 @@ ;;; (define-compiler-macro aref (&whole form array &rest indices &environment env) - (print form) - (print (policy-open-code-aref/aset-p env)) - (print (policy-array-bounds-check-p env)) - (print (if (policy-open-code-aref/aset-p env) (expand-aref array indices (policy-array-bounds-check-p env)) - form))) + form)) (defun expand-aref (array indices check) (with-clean-symbols (%array) @@ -106,14 +102,10 @@ (define-compiler-macro si::aset (&whole form value array &rest indices &environment env) - (print form) - (print (policy-open-code-aref/aset-p env)) - (print (policy-array-bounds-check-p env)) - (print (if (policy-open-code-aref/aset-p env) (expand-aset array indices value (policy-array-bounds-check-p env)) - form))) + form)) (defun expand-aset (array indices value check) (with-clean-symbols (%array %value) @@ -222,7 +214,7 @@ for c-code = (format nil "(#0)->array.dims[~D]" i) collect `((:object) :fixnum ,c-code :one-liner t :side-effects nil))))) - `(c-inline (,array) ,(aref tails n)))) + `(c-inline (,array) ,@(aref tails n)))) (defmacro array-dimension-fast (array n) (if (typep n '(integer 0 #.(1- array-rank-limit)))