From bc13fb41d127aca433fd4305915e795ae0c94fda Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Mon, 14 Jan 2013 21:35:37 +0100
Subject: [PATCH] In do-setf-structure-method, the closures did not check their
 arguments.

---
 src/lsp/defstruct.lsp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/lsp/defstruct.lsp b/src/lsp/defstruct.lsp
index d0d6a1df3..2a0b5f0cd 100644
--- a/src/lsp/defstruct.lsp
+++ b/src/lsp/defstruct.lsp
@@ -56,8 +56,7 @@
 
 
 (defun do-setf-structure-method (access-function type index)
-  (declare (si::c-local)
-	   (optimize (speed 3) (safety 0)))
+  (declare (si::c-local))
   (put-sysprop access-function 'STRUCTURE-ACCESS (cons type index))
   (do-defsetf access-function
     (cond ((or (eq type 'list) (eq type 'vector))