mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-24 02:21:04 -07:00
Code Issues Projects Releases Packages Wiki Activity

Improve inliners for SI:INSTANCE-CLASS and SI:INSTANCE-REF

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-15 11:14:13 +01:00
parent afdb75f15b
commit c0f1d43b60
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/proclamations.lsp
View file

@ -1308,7 +1308,7 @@
#+clos
(proclamation si:instance-set (t fixnum t) t)
#+clos
(proclamation si:instance-class (t) t :reader)
(proclamation si:instance-class (t) class :reader)
#+clos
(proclamation si:instance-class-set (t t) t)
#+clos

2
src/cmp/sysfun.lsp
View file

@ -811,6 +811,8 @@
#+clos
(def-inline si:instance-class :always (standard-object) t "CLASS_OF(#0)")
;;#+clos
;;(def-inline class-of :unsafe (standard-object) t "CLASS_OF(#0)")
#+clos
(def-inline si::instancep :always (t) :bool "@0;ECL_INSTANCEP(#0)")