From acf582cbd6330c09479f8466e64e7f2f8d69ab9c Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 18 Dec 2011 20:58:41 +0100 Subject: [PATCH] In src/cmp/cmpopt-clos.lsp, add missing references to the CLOS package. --- src/cmp/cmpopt-clos.lsp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpopt-clos.lsp b/src/cmp/cmpopt-clos.lsp index 514ac4d58..83107cce5 100644 --- a/src/cmp/cmpopt-clos.lsp +++ b/src/cmp/cmpopt-clos.lsp @@ -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)))