mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-14 00:40:47 -07:00
Code Issues Projects Releases Packages Wiki Activity

core: predlib: add a system type SI:RADIX

Browse source
This commit is contained in:
Daniel Kochmański 2026-03-06 14:41:30 +01:00
parent 6728559ab6
commit 5e4404bfb2
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/symbols_list.h
View file

@ -1238,6 +1238,7 @@ cl_symbols[] = {
{SYS_ "MKDIR" ECL_FUN("si_mkdir", si_mkdir, 2) ECL_VAR(SI_ORDINARY, OBJNULL)},
{EXT_ "MKSTEMP" ECL_FUN("si_mkstemp", si_mkstemp, 1) ECL_VAR(EXT_ORDINARY, OBJNULL)},
{SYS_ "NEED-TO-MAKE-LOAD-FORM-P" ECL_FUN("si_need_to_make_load_form_p", si_need_to_make_load_form_p, 1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "RADIX" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{SYS_ "RMDIR" ECL_FUN("si_rmdir", si_rmdir, 1) ECL_VAR(SI_ORDINARY, OBJNULL)},
{EXT_ "MAKE-PIPE" ECL_FUN("si_make_pipe", si_make_pipe, 0) ECL_VAR(EXT_ORDINARY, OBJNULL)},
/* package extensions */

5
src/lsp/predlib.lsp
View file

@ -130,10 +130,15 @@ retrieved by (documentation 'NAME 'type)."
(deftype index ()
'(INTEGER 0 #.array-dimension-limit))
(deftype radix ()
"A RADIX is an integer between 2 and 36, that is supported integer base."
'(INTEGER 2 36))
(deftype fixnum ()
"A FIXNUM is an integer between MOST-NEGATIVE-FIXNUM and
MOST-POSITIVE-FIXNUM inclusive. Other integers are bignums."
'(INTEGER #.most-negative-fixnum #.most-positive-fixnum))
(deftype bignum ()
'(OR (INTEGER * (#.most-negative-fixnum)) (INTEGER (#.most-positive-fixnum) *)))