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

Automatically generate type checks for arguments of a lambda form if the safety settings are high enough

Browse source
This commit is contained in:
jgarcia 2008-05-12 08:16:44 +00:00
parent f5d2137452
commit 4e46efac3f
13 changed files with 78 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/arraylib.lsp
View file

@ -71,7 +71,8 @@ contiguous block."
(declare (si::c-local))
(labels ((iterate-over-contents (array contents dims written)
(declare (fixnum written)
(array array))
(array array)
(optimize (safety 0)))
(when (/= (length contents) (first dims))
(error "In MAKE-ARRAY: the elements in :INITIAL-CONTENTS do not match the array dimensions"))
(if (= (length dims) 1)
@ -285,7 +286,8 @@ pointer is 0 already."
(aref vector (the fixnum (1- fp)))))
(defun copy-array-contents (dest orig)
(declare (si::c-local))
(declare (si::c-local)
(optimize (safety 0)))
(labels
((do-copy (dest orig dims1 dims2 start1 start2)
(declare (array dest orig)