From 1eb33bb8af3cfb7f08a9f46455fb29afe4242aa3 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 1 Jul 2010 22:45:19 +0200
Subject: [PATCH] Fixed typo in GET-ARG-TYPES: local declarations were not
 properly parsed.

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

diff --git a/src/cmp/cmpenv-fun.lsp b/src/cmp/cmpenv-fun.lsp
index 8b9d3e7e6..54cf6008c 100644
--- a/src/cmp/cmpenv-fun.lsp
+++ b/src/cmp/cmpenv-fun.lsp
@@ -76,7 +76,7 @@
 (defun get-arg-types (fname &optional (env *cmp-env*) (may-be-global t))
   (let ((x (cmp-env-search-ftype fname env)))
     (if x
-        (values x t)
+        (values (first x) t)
         (when may-be-global
           (let ((fun (cmp-env-search-function fname env)))
             (when (or (null fun) (and (fun-p fun) (fun-global fun)))