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 (macrolet ((do-delayed-structs ()
  20              `(progn
  21                 ,@(mapcan (lambda (x)
  22                             (list `(in-package ,(delayed-defstruct-package x))
  23                                   `(sb-xc:defstruct ,@(delayed-defstruct-args x))))
  24                           (reverse *delayed-defstructs*)))))
  25   (do-delayed-structs)
  26   (makunbound '*delayed-defstructs*))