From 4d8a8edf261aac677038fcd3c97d2d862bf43589 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 24 Jan 2011 22:27:48 +0100 Subject: [PATCH] Fixed typo in maybe-optimize-structure-access (J. James) --- src/cmp/cmpstructures.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpstructures.lsp b/src/cmp/cmpstructures.lsp index fe2a25838..5421f38a7 100644 --- a/src/cmp/cmpstructures.lsp +++ b/src/cmp/cmpstructures.lsp @@ -37,7 +37,7 @@ (inline-possible fname) (policy-inline-slot-access-p)) ;(format t "~%;;; Optimizing structure accessor ~A" fname) - (let (struture-type slot-index) + (let (structure-type slot-index) (unless (and (consp slot-description) (setf structure-type (car slot-description) slot-index (cdr slot-description))