X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=b6dd3240731b831677e04458e8e0435ea3525891;hb=fa8962d732057015fbb9a2f8a08ea8d5299b50dd;hp=074ee184a4e27266d0032081304fd33a0258a0ae;hpb=f392742d2781f42b3bb15b637e5008e10fbbe092;p=sbcl.git diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp index 074ee18..b6dd324 100644 --- a/src/code/cold-init.lisp +++ b/src/code/cold-init.lisp @@ -189,8 +189,8 @@ (t (!cold-lose "bogus function in *!REVERSED-COLD-TOPLEVELS*"))))) (/show0 "done with loop over cold toplevel forms and fixups") - ;; Set sane values again, so that the user sees sane values instead of - ;; whatever is left over from the last DECLAIM/PROCLAIM. + ;; Set sane values again, so that the user sees sane values instead + ;; of whatever is left over from the last DECLAIM/PROCLAIM. (show-and-call !policy-cold-init-or-resanify) ;; Only do this after toplevel forms have run, 'cause that's where