X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=f65650e7e8c3ac16f7ec5bce55323cd40787307d;hb=1513b29bfbe948e7b431b5f67f1ff10769c192cf;hp=655b3b999b71ef78a4bff297d7691d0322c182cc;hpb=203c15eefffd996fd20bd28d461ea1aa3865dbbe;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 655b3b9..f65650e 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -178,7 +178,7 @@
   (if (atom type)
       (if (eq type t)
 	  *the-class-t*
-	  (error "bad argument to type-class"))
+	  (error "bad argument to TYPE-CLASS"))
       (case (car type)
 	(eql (class-of (cadr type)))
 	(prototype (class-of (cadr type))) ;?