0.7.13.pcl-class.2

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

diff --git a/src/pcl/env.lisp b/src/pcl/env.lisp
index 6bed6ae..359ad30 100644 (file)
--- a/src/pcl/env.lisp
+++ b/src/pcl/env.lisp
@@ -125,10 +125,10 @@
 
 (defmethod make-load-form ((object wrapper) &optional env)
   (declare (ignore env))
-  (let ((pname (sb-kernel:classoid-proper-name
-               (sb-kernel:layout-classoid object))))
+  (let ((pname (classoid-proper-name
+               (layout-classoid object))))
     (unless pname
       (error "can't dump wrapper for anonymous class:~%  ~S"
-            (sb-kernel:layout-classoid object)))
-    `(sb-kernel:classoid-layout (sb-kernel:find-classoid ',pname))))
+            (layout-classoid object)))
+    `(classoid-layout (find-classoid ',pname))))