src/code/late-deftypes-for-target.lisp

   1 (in-package "SB!KERNEL")
   2
   3 ;; Not sure why this needs to be 'late'. A deftype body produces forms,
   4 ;; not code that cares whether sb!eval:interpreted-function means anything.
   5 (sb!xc:deftype compiled-function ()
   6   '(and function
   7         #!+sb-fasteval (not sb!interpreter:interpreted-function)
   8         #!+sb-eval (not sb!eval:interpreted-function)))
   9
  10 #+sb-xc-host
  11 ;; Restore this to its build-the-xc compile-time value at load-time.
  12 (setq sb!impl::!*xc-processed-deftypes* '#.sb!impl::!*xc-processed-deftypes*)