1.0.48.25: automatic &rest to &more conversion
[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 ())
19   (def %caller-pc ())
20   (def %code-code-size)
21   (def %code-debug-info)
22   (def %code-entry-points)
23   (def %funcallable-instance-layout)
24   (def %set-funcallable-instance-layout (x new-value)))