From 72a0809f6a9e4e37bfdf9ca9aafa7707eb8d4712 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Tue, 27 Jan 2009 23:02:46 +0100
Subject: [PATCH] Save the full information on the structure :type option

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

diff --git a/src/lsp/defstruct.lsp b/src/lsp/defstruct.lsp
index f4724d41f..281c8bad2 100644
--- a/src/lsp/defstruct.lsp
+++ b/src/lsp/defstruct.lsp
@@ -312,8 +312,6 @@
   #+clos
   (when *keep-documentation*
     (set-documentation name 'STRUCTURE documentation))
-  (and (consp type) (eq (car type) 'VECTOR)
-       (setq type 'VECTOR))
   (dolist (x slot-descriptions)
     (and x
 	 (not (eql (car x) 'TYPED-STRUCTURE-NAME))