X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Falien-type.lisp;h=0a28be15b535d56a4edfc283860a30bacfadc350;hb=5eb97830eca716fef626c6e12429c99c9b97e3c8;hp=dd9bceb2b4f3e017ebd5e2db847ece4edf92cde4;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git diff --git a/src/code/alien-type.lisp b/src/code/alien-type.lisp index dd9bceb..0a28be1 100644 --- a/src/code/alien-type.lisp +++ b/src/code/alien-type.lisp @@ -13,9 +13,6 @@ (in-package "SB!KERNEL") -(file-comment - "$Header$") - (!begin-collecting-cold-init-forms) (defstruct (alien-type-type @@ -34,9 +31,10 @@ (alien-type-type-alien-type type2)) t)) -;;; KLUDGE: This DEFINE-SUPERCLASSES gets executed much later than the others -;;; (toplevel form time instead of cold load init time) because ALIEN-VALUE -;;; itself is a structure which isn't defined until fairly late. +;;; KLUDGE: This DEFINE-SUPERCLASSES gets executed much later than the +;;; others (toplevel form time instead of cold load init time) because +;;; ALIEN-VALUE itself is a structure which isn't defined until fairly +;;; late. ;;; ;;; FIXME: I'm somewhat tempted to just punt ALIEN from the type system. ;;; It's sufficiently unlike the others that it's a bit of a pain, and