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

Merged STANDARD-INSTANCE-GET and STANDARD-INSTANCE-ACCESS.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-12-19 22:44:01 +01:00
parent 7a443b5278
commit 0f2688147d
7 changed files with 16 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/proclamations.lsp
View file

@ -290,8 +290,6 @@
;; Slot accessors:
; (proclamation unbound-slot-instance (condition) si::instance :predicate)
#+clos
(proclamation clos::standard-instance-get (ext:instance t) t)
#+clos
(proclamation clos::standard-instance-set (t ext:instance t) t)
#+clos
@ -1344,10 +1342,10 @@
#+clos
(proclamation si:sl-makunbound (t fixnum) t)
#+clos
(proclamation clos:standard-instance-access (standard-object fixnum) t :reader)
(proclamation clos:standard-instance-access (standard-object t) t :reader)
#+clos
(proclamation clos:funcallable-standard-instance-access
(clos:funcallable-standard-object fixnum)
(clos:funcallable-standard-object t)
t :reader)
#+clos
(proclamation associate-methods-to-gfun (generic-function *)

10
src/cmp/sysfun.lsp
View file

@ -839,16 +839,12 @@
#+clos
(def-inline si:sl-boundp :always (t) :bool "(#0)!=ECL_UNBOUND")
#+clos
(def-inline clos:standard-instance-access :always (t t) t "ecl_instance_ref((#0),ecl_to_size(#1))")
#+clos
(def-inline clos:standard-instance-access :always (t fixnum) t "ecl_instance_ref((#0),(#1))")
#+clos
(def-inline clos:standard-instance-access :unsafe (standard-object fixnum) t
"(#0)->instance.slots[#1]")
#+clos
(def-inline clos:funcallable-standard-instance-access :always (t t) t "ecl_instance_ref((#0),ecl_to_size(#1))")
#+clos
(def-inline clos:funcallable-standard-instance-access :always (t fixnum) t "ecl_instance_ref((#0),(#1))")
#+clos
@ -938,8 +934,8 @@
clos:std-compute-applicable-methods
clos:std-compute-effective-method
clos:compute-effective-method-function
;; standard-instance-access ; this function is a synonym for si:instance-ref
;; funcallable-standard-instance-access ; same for this one
standard-instance-access
;; funcallable-standard-instance-access alias for standard-instance-access
subclassp of-class-p
;; boot.lsp
slot-boundp
@ -1006,7 +1002,7 @@
,@'(;; defclass.lsp
clos::ensure-class
;; std-slot-value.lsp
clos::standard-instance-get
clos::standard-instance-access
clos::standard-instance-set
clos::find-slot-definition
;; combin.lsp