From db290fc2dd40c7fef8826152f3ca8ce992b6825c Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Mon, 24 Apr 2006 08:44:50 +0000
Subject: [PATCH] Some of the variable types are not symbols, hence we must
 precede declarations with TYPE.

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

diff --git a/src/cmp/cmplam.lsp b/src/cmp/cmplam.lsp
index b1552ff00..91871bf30 100644
--- a/src/cmp/cmplam.lsp
+++ b/src/cmp/cmplam.lsp
@@ -211,7 +211,7 @@
 	(push `(ignorable ,@is) declarations))
       (loop for (var . type) in ts
 	    unless (member var new-variable-names)
-	    do (push (list type var) declarations))
+	    do (push `(type ,type ,var) declarations))
       (setq body
 	    (cond (aux-vars
 		   (let ((let nil))