From ebe0edd5c2960fd6edf3bcba5e177682c1708207 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 30 Nov 2007 23:49:44 +0000
Subject: [PATCH] Remove unused code.

---
 src/cmp/cmpcall.lsp | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp
index 80c241254..c535c131a 100644
--- a/src/cmp/cmpcall.lsp
+++ b/src/cmp/cmpcall.lsp
@@ -13,18 +13,6 @@
 
 (in-package "COMPILER")
 
-(defun fast-link-proclaimed-type-p (fname &optional args)
-  (and *compile-to-linking-call*
-       (symbolp fname)
-       (and (< (the fixnum (length args)) 10)
-            (or (and (get-sysprop fname 'FIXED-ARGS)
-                     (listp args))
-                (and
-                 (get-sysprop fname 'PROCLAIMED-FUNCTION)
-                 (eq (get-sysprop fname 'PROCLAIMED-RETURN-TYPE) t)
-                 (every #'(lambda (v) (eq v t))
-                        (get-sysprop fname 'PROCLAIMED-ARG-TYPES)))))))
-
 ;;; Like macro-function except it searches the lexical environment,
 ;;; to determine if the macro is shadowed by a function or a macro.
 (defun cmp-macro-function (name)