0.6.9.6:

[sbcl.git] / src / pcl / std-class.lisp

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index f8bd0bd..8f5dedc 100644 (file)
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -1065,7 +1065,7 @@
      (format stream
             "obsolete structure error in ~S:~@
              for a structure of type: ~S"
-            (sb-conditions::condition-function-name condition)
+            (sb-kernel::condition-function-name condition)
             (type-of (obsolete-structure-datum condition))))))
 
 (defun obsolete-instance-trap (owrapper nwrapper instance)