From 14864f4b6d4760f3d3bc6bd82128ccba0bc94463 Mon Sep 17 00:00:00 2001
From: japhie <japhie>
Date: Wed, 14 Sep 2005 11:57:40 +0000
Subject: [PATCH] - Bugfix: make C::GET-RETURN-TYPE return function's return
 type, not   argument type list.

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

diff --git a/src/cmp/cmpenv.lsp b/src/cmp/cmpenv.lsp
index c60ce79a2..9c0b734da 100644
--- a/src/cmp/cmpenv.lsp
+++ b/src/cmp/cmpenv.lsp
@@ -129,7 +129,7 @@
 (defun get-return-type (fname)
   (let ((x (assoc fname *function-declarations*)))
     (if x
-	(second x)
+	(third x)
 	(get-sysprop fname 'PROCLAIMED-RETURN-TYPE))))
 
 (defun get-local-arg-types (fun &aux x)