From 6f10f3e92529964a70a97c9c2f0cfc00124f0500 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 13 May 2002 07:24:10 +0000
Subject: [PATCH] Fix typo.

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

diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index 13dd942de..21605c3d3 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -121,7 +121,7 @@
         (sys::*print-structure* t))
     (wt-filtered-data
      (typecase expr
-       (COMPILED-FUNCTION
+       (FUNCTION
 	(prin1-to-string (sys:compiled-function-name expr)))
        (PACKAGE
 	(format nil "~%#.(find-package ~S)" (package-name expr)))