src/code/force-delayed-defbangstructs.lisp

   1 ;;;; Once all the cross-compiler DEFSTRUCT machinery has been set up,
   2 ;;;; we can feed the stored DEF!STRUCT argument lists to it. (This
   3 ;;;; goes in its own source file, instead of in the same file as the
   4 ;;;; DEFSTRUCT machinery, because it's tidier and more maintainable
   5 ;;;; than adding EVAL-WHEN :COMPILE wrappers to anything that it might
   6 ;;;; need.)
   7
   8 ;;;; This software is part of the SBCL system. See the README file for
   9 ;;;; more information.
  10 ;;;;
  11 ;;;; This software is derived from the CMU CL system, which was
  12 ;;;; written at Carnegie Mellon University and released into the
  13 ;;;; public domain. The software is in the public domain and is
  14 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  15 ;;;; files for more information.
  16
  17 (in-package "SB!KERNEL")
  18
  19 (file-comment
  20   "$Header$")
  21
  22 #+sb-xc-host (force-delayed-def!structs)