boot15.lisp 509 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
;;;
;;; Bootstrap file for adding dynamic-extent rest args.
;;;

(in-package :cl-user)
(use-package :fwrappers)

;;;
;;; Prevent structure redefinition dialogs.
;;;
(define-fwrapper return-nil (&rest args) (call-next-function) nil)
(fwrap 'kernel::redefine-layout-warning #'return-nil)
(push :bootstrap-dynamic-extent *features*)

;;;
;;; Make compiler-layouts known to the compiler, for the change
;;; in the struct C::LEAF, which gets a new slot.
;;;
(compile-file "target:compiler/node")

;;; End of file.