0.9.16.27:

[sbcl.git] / src / code / class.lisp

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 0390b9f..9171637 100644 (file)
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -952,8 +952,8 @@ NIL is returned when no such class exists."
                                (:constructor make-standard-classoid)))
 ;;; a metaclass for miscellaneous PCL structure-like objects (at the
 ;;; moment, only CTOR objects).
-(def!struct (random-pcl-classoid (:include classoid)
-                                 (:constructor make-random-pcl-classoid)))
+(def!struct (static-classoid (:include classoid)
+                             (:constructor make-static-classoid)))
 \f
 ;;;; built-in classes