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-frob (name &optional (args '(x)))
  17              `(defun ,name ,args (,name ,@args))))
  18   (def-frob %code-code-size)
  19   (def-frob %code-debug-info)
  20   (def-frob %code-entry-points)
  21   (def-frob %funcallable-instance-fun)
  22   (def-frob %funcallable-instance-layout)
  23   (def-frob %funcallable-instance-lexenv)
  24   (def-frob %set-funcallable-instance-fun (fin new-val)))
  25
  26 (defun %caller-frame-and-pc ()
  27   (%caller-frame-and-pc))