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

In src/cmp/cmpopt-clos.lsp, add missing references to the CLOS package.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-18 20:58:41 +01:00
parent 2ca63fdbf8
commit acf582cbd6
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cmp/cmpopt-clos.lsp
View file

@ -32,6 +32,9 @@
(let* ((slotd (clos:accessor-method-slot-definition method))
(location (clos:slot-definition-location slotd)))
(let ((object (gentemp)))
(cmpnote "Inlining read access to slot ~a from class ~a"
(clos:slot-definition-name slotd)
(class-name class))
#+(or)
`(let ((,object ,(second whole)))
(locally (declare (notinline ,(first whole)))
@ -46,12 +49,15 @@
(defun optimizable-slot-writer (method whole)
(when (typep method 'clos:standard-writer-method)
(let ((class (second (method-specializers method))))
(let ((class (second (clos:method-specializers method))))
(when (clos::class-sealedp class)
(let* ((slotd (clos:accessor-method-slot-definition method))
(location (clos:slot-definition-location slotd)))
(let* ((object (gentemp))
(value (gentemp)))
(cmpnote "Inlining write access to slot ~a from class ~a"
(clos:slot-definition-name slotd)
(class-name class))
#+(or)
`(let ((,value ,(second whole))
(,object ,(third whole)))