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

Safer inline expansion for BOUNDP

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-20 22:04:50 +01:00
parent c59b212fd4
commit ec9727f9f5
4 changed files with 19 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/sysfun.lsp
View file

@ -1227,7 +1227,8 @@
(proclaim-function fboundp (symbol) t :predicate t)
(proclaim-function symbol-value (symbol) t)
(proclaim-function boundp (symbol) t :predicate t :no-side-effects t)
(def-inline boundp :always (symbol) :bool "ECL_SYM_VAL(cl_env_copy,#0)!=OBJNULL")
(def-inline boundp :always (t) :bool "ecl_boundp(cl_env_copy,#0)")
(def-inline boundp :unsafe ((and symbol (not null))) :bool "ECL_SYM_VAL(cl_env_copy,#0)!=OBJNULL")
(proclaim-function macro-function (symbol) t)
(proclaim-function special-operator-p (symbol) t :predicate t)