X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=c3af80d3fceb023ca87b42b4ddf204a44066098b;hb=447477e72bd4fe54e678a28bdcc4a2802797d6ed;hp=91716373bbc5f04f18ff7e57370c484316f0b826;hpb=970dd272dc84f7420252eadb4829cc193f795716;p=sbcl.git diff --git a/src/code/class.lisp b/src/code/class.lisp index 9171637..c3af80d 100644 --- a/src/code/class.lisp +++ b/src/code/class.lisp @@ -950,8 +950,8 @@ NIL is returned when no such class exists." ;;; FUNCALLABLE-STANDARD-CLASS. (def!struct (standard-classoid (:include classoid) (:constructor make-standard-classoid))) -;;; a metaclass for miscellaneous PCL structure-like objects (at the -;;; moment, only CTOR objects). +;;; a metaclass for classes which aren't standardlike but will never +;;; change either. (def!struct (static-classoid (:include classoid) (:constructor make-static-classoid)))