(cl:in-package #:sicl-boot-phase-4)

(defun enable-typep (e2 e3)
  (with-intercepted-function-cells
      (e3
       (sicl-clos:class-precedence-list
        (env:function-cell (env:client e2) e2 'sicl-clos:class-precedence-list)))
    (load-source-file "Types/Typep/typep-atomic.lisp" e3))
  (load-source-file "Types/Typep/typep-compound-integer.lisp" e3)
  (load-source-file "Types/Typep/typep-compound.lisp" e3)
  (load-source-file "Types/Typep/typep.lisp" e3))

(cl:in-package #:sicl-boot-phase-4)

(defun enable-typep (e2 e3)
  (with-intercepted-function-cells
      (e3
       (sicl-clos:class-precedence-list
        (env:function-cell (env:client e2) e2 'sicl-clos:class-precedence-list)))
    (load-source-file "Types/Typep/typep-atomic.lisp" e3))
  (load-source-file "Types/Typep/typep-compound-integer.lisp" e3)
  (load-source-file "Types/Typep/typep-compound.lisp" e3)
  (load-source-file "Types/Typep/typep.lisp" e3))
