1.0.21.35: fix build / SAVE-LISP-AND-DIE on non-GENCGC platforms
[sbcl.git] / src / code / stubs.lisp
1 ;;;; miscellaneous primitive stubs (ordinary FDEFINITIONs for full
2 ;;;; call defined in terms of fundamental definitions of inline
3 ;;;; expansions)
4
5 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; more information.
7 ;;;;
8 ;;;; This software is derived from the CMU CL system, which was
9 ;;;; written at Carnegie Mellon University and released into the
10 ;;;; public domain. The software is in the public domain and is
11 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
12 ;;;; files for more information.
13
14 (in-package "SB!IMPL")
15
16 (macrolet ((def (name &optional (args '(x)))
17              `(defun ,name ,args (,name ,@args))))
18   (def %caller-frame-and-pc ())
19   (def %code-code-size)
20   (def %code-debug-info)
21   (def %code-entry-points)
22   (def %funcallable-instance-layout)
23   (def %set-funcallable-instance-layout (x new-value)))