0.pre7.37:

[sbcl.git] / src / pcl / defs.lisp

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 655b3b9..f65650e 100644 (file)
--- 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))) ;?