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

Optimize clos::safe-instance-ref

Browse source
This commit is contained in:
jgarcia 2008-05-12 08:15:47 +00:00
parent 4b753ce2e7
commit 8f6fbb87cb
1 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/clos/standard.lsp
View file

@ -488,14 +488,22 @@ because it contains a reference to the undefined class~% ~A"
;;; Optional accessors
;;;
(defun unbound-slot-error (object index)
(declare (type standard-object object)
(type fixnum index)
(si::c-local))
(let* ((class (class-of object))
(slotd (find index (class-slots class) :key #'slot-definition-location)))
(values (slotd-unbound class object (slot-definition-name slotd)))))
(defun safe-instance-ref (object index)
(declare (fixnum index))
(declare (type standard-object object)
(type fixnum index)
(optimize (safety 0)))
(let ((value (si:instance-ref object index)))
(if (si:sl-boundp value)
value
(let ((class (class-of object))
(slotd (find index (class-slots class) :key #'slot-definition-location)))
(values (slotd-unbound class object (slot-definition-name slotd)))))))
(unbound-slot-error object index))))
;;; The following does not get as fast as it should because we are not
;;; allowed to memoize the position of a slot. The problem is that the