From 4d329047eecaabc4de8cfb2b1ff8efe5f1b4b326 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@benasque2.(none)>
Date: Sun, 25 May 2008 21:00:45 +0200
Subject: [PATCH] '* is not a good output for CLOSEST-VECTOR-TYPE.

---
 src/lsp/seq.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/seq.lsp b/src/lsp/seq.lsp
index 6262b6d7a..27a5a52f8 100644
--- a/src/lsp/seq.lsp
+++ b/src/lsp/seq.lsp
@@ -41,7 +41,7 @@
 	   (setq name type args nil)))
     (case name
       ((VECTOR)
-       (setq elt-type (if (endp args) '* (first args))
+       (setq elt-type (if (endp args) 'T (first args))
 	     length (if (endp (rest args)) '* (second args))))
       ((SIMPLE-VECTOR)
        (setq elt-type 'T