Remove property 'CFUN which was not used anywhere.

src/ansi-tests/Makefile.in

@@ -10,7 +10,8 @@ MKDIR=mkdir -p
 ecls:
 	ln -sf ../../src/h/*.h ../h/
 	(echo '(load "$(srcdir)/tests")'; \
-	 echo '(setq si::*system-directory* "../")'; \
+	 echo '(setf (logical-pathname-translations "SYS")'; \
+	 echo "      '"'(("*.*" "../*.*")))'; \
 	 echo "(run-all-tests \"$(srcdir)/\")"; \
 	 echo "(quit)") | ../ecls
 	true
@@ -18,7 +19,8 @@ ecls:
 ecls_min:
 	ln -sf ../../src/h/*.h ../h/
 	(echo '(load "bare.lsp")'; \
-	 echo '(setq si::*system-directory* "../")'; \
+	 echo '(setf (logical-pathname-translations "SYS")'; \
+	 echo "      '"'(("*.*" "../*.*")))'; \
 	 echo '(sys::chdir "ansi-tests")'; \
 	 echo '(load "$(srcdir)/tests")'; \
 	 echo "(run-all-tests \"$(srcdir)/\")"; \

src/cmp/cmptop.lsp

@@ -283,19 +283,15 @@
 
 (defun wt-if-proclaimed (fname cfun vv lambda-expr)
   (when (fast-link-proclaimed-type-p fname)
-    (if (assoc fname *inline-functions*)
-      (wt-nl "(void)putprop(" vv ",make_fixnum((int)LI"
-             cfun ")," (add-object 'SYS::CDEFN) ");")
-      (let ((arg-c (length (car (third lambda-expr))))
-            (arg-p (length (get fname 'PROCLAIMED-ARG-TYPES))))
-        (if (= arg-c arg-p)
-          (cmpwarn
-           " ~a is proclaimed but not in *inline-functions* ~
-            ~%T1defun could not assure suitability of args for C call" fname
-           )
-          (cmpwarn
-           "Number of proclaimed args for ~a was ~a. ~
-            ~%;;; Its definition had ~a." fname arg-p arg-c))))))
+    (let ((arg-c (length (car (third lambda-expr))))
+	  (arg-p (length (get fname 'PROCLAIMED-ARG-TYPES))))
+      (if (= arg-c arg-p)
+	(cmpwarn
+	 " ~a is proclaimed but not in *inline-functions* ~
+          ~%T1defun could not assure suitability of args for C call" fname)
+	(cmpwarn
+	 "Number of proclaimed args for ~a was ~a. ~
+          ~%;;; Its definition had ~a." fname arg-p arg-c)))))
 
 (defun volatile (info)
    (if (info-volatile info) "volatile " ""))

src/cmp/cmputil.lsp

@@ -172,7 +172,6 @@
          (eval form)))
 
 (defun compiler-clear-compiler-properties (symbol)
-  (remprop symbol 'sys::cdefn)
   #-:CCL
   (sys::unlink-symbol symbol)
   (remprop symbol 'package-operation)