mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Removed debug statements from cmparray.lsp and fixed typo in ARRAY-DIMENSION-ACCESSOR

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-06 08:41:19 +02:00
parent 1b808f2290
commit 1a5444eb39
1 changed files with 3 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/cmp/cmparray.lsp
View file

@ -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)))