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

Fix proclamation: VECTOR-PUSH can output either a fixnum or NIL

Browse source
This commit is contained in:
jgarcia 2007-01-06 16:12:06 +00:00
parent 71cf239d31
commit 6314427a13
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/sysfun.lsp
View file

@ -999,7 +999,7 @@ type_of(#0)==t_base_string||
type_of(#0)==t_string||
type_of(#0)==t_bitvector")
(proclaim-function vector-push (t vector) fixnum :no-sp-change t)
(proclaim-function vector-push (t vector) (or fixnum null) :no-sp-change t)
(proclaim-function vector-push-extend (t vector *) fixnum :no-sp-change t)
(proclaim-function simple-string-p (t) t :predicate t)
(proclaim-function simple-bit-vector-p (t) t :predicate t)