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 #!+sb-eval (not sb!eval:interpreted-function)))
   7
   8 #+sb-xc-host
   9 ;; Restore this to its build-the-xc compile-time value at load-time.
  10 (setq sb!impl::!*xc-processed-deftypes* '#.sb!impl::!*xc-processed-deftypes*)