X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-defstruct.lisp;h=8f35d3ccfaf408f733457cbf40259a8b6247bf69;hb=0f2ae6ebc3520494b665a9dbf32c36c671334d36;hp=03f368a7cf01098da1c297caac704a31e728c783;hpb=a23903deaf6348cc088eb0f992a99cdba0a37d66;p=sbcl.git

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 03f368a..8f35d3c 100644
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -390,7 +390,7 @@
 
 (defun %default-structure-pretty-print (structure stream)
   (let* ((layout (%instance-layout structure))
-	 (name (sb!xc:class-name (layout-class layout)))
+	 (name (class-name (layout-class layout)))
 	 (dd (layout-info layout)))
     (pprint-logical-block (stream nil :prefix "#S(" :suffix ")")
       (prin1 name stream)
@@ -416,7 +416,7 @@
 	     (pprint-newline :linear stream))))))))
 (defun %default-structure-ugly-print (structure stream)
   (let* ((layout (%instance-layout structure))
-	 (name (sb!xc:class-name (layout-class layout)))
+	 (name (class-name (layout-class layout)))
 	 (dd (layout-info layout)))
     (descend-into (stream)
       (write-string "#S(" stream)