X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Flow.lisp;h=f0758231a039e3fda9c0ed19591fe4d42b015196;hb=959057baab99d4328fc386aee3fcc812f5fcb3ed;hp=099e48ce865f7996f9caba6572cc5b794a7f1873;hpb=39ca94ec421224c78cb01f7d2d7b49321c66a2d4;p=sbcl.git

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index 099e48c..f075823 100644
--- a/src/pcl/low.lisp
+++ b/src/pcl/low.lisp
@@ -167,14 +167,12 @@
 		 (typep fcn 'generic-function)
 		 (eq (class-of fcn) *the-class-standard-generic-function*))
 	     (setf (sb-kernel:%funcallable-instance-info fcn 1) new-name)
-	     (typecase fcn
+	     (etypecase fcn
 	       (sb-kernel:byte-closure
 		(set-function-name (sb-kernel:byte-closure-function fcn)
 				   new-name))
 	       (sb-kernel:byte-function
-		(setf (sb-kernel:byte-function-name fcn) new-name))
-	       (sb-eval:interpreted-function
-		(setf (sb-eval:interpreted-function-name fcn) new-name))))
+		(setf (sb-kernel:byte-function-name fcn) new-name))))
 	 fcn)
 	(t
 	 ;; pw-- This seems wrong and causes trouble. Tests show
@@ -194,7 +192,7 @@
 	 ;; lets not do this...
 	 #+nil
 	 (let ((header (sb-kernel:%closure-function fcn)))
-	   (setf (sb-c::%function-name header) new-name))
+	   (setf (sb-kernel:%function-name header) new-name))
 
 	 ;; XXX Maybe add better scheme here someday.
 	 fcn)))