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

expand-vector-push: simplify error condition

Browse source 
assert, that function takes 2 up to 3 (if extended) arguments.
This commit is contained in:
Daniel Kochmanski 2017-08-10 20:58:37 +02:00
parent bf310ef23a
commit ee059366db
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/cmp/cmparray.lsp
View file

@ -97,13 +97,13 @@
(not (policy-open-code-aref/aset)))
(return-from expand-vector-push
whole))
(let ((len (length args)))
(when (or (< len 2)
(> len (if extend 3 2)))
(cmpwarn "Wrong number of arguments passed to function ~A in form: ~A" (first whole) whole)
(return-from expand-vector-push
`(si::simple-program-error
"Wrong number of arguments passed to function ~A in form: ~A" ',(first whole) ',whole))))
(unless (<= 2
(length args)
(if extend 3 2))
(cmpwarn "Wrong number of arguments passed to function ~A in form: ~A" (first whole) whole)
(return-from expand-vector-push
`(si::simple-program-error
"Wrong number of arguments passed to function ~A in form: ~A" ',(first whole) ',whole)))
`(let* ((value ,(car args))
(vector ,(second args)))
(declare (:read-only value vector)