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

Fix type proclamation for MEMBER1.

Browse source
This commit is contained in:
jjgarcia 2003-05-03 17:16:17 +00:00
parent ff48175133
commit c81925fa7f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/sysfun.lsp
View file

@ -487,7 +487,7 @@
(MEMBER (T T *) T)
(MEMBER-IF (T T *) T)
(MEMBER-IF-NOT (T T *) T)
(MEMBER1 (T T *) T)
(MEMBER1 (T T T T T) T)
(TAILP (T T) T NIL T)
(ADJOIN (T T *) T)
(ACONS (T T T) T)
@ -1087,6 +1087,7 @@ type_of(#0)==t_bitvector"))
nsubstitute nsubstitute-if nsubstitute-if-not find find-if find-if-not
position position-if position-if-not remove-duplicates
delete-duplicates mismatch search sort stable-sort merge
si::simple-program-error
si::closest-vector-type si::packages-iterator .
#-clos
nil