;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:CL -*-
;;;
;;; INTERPRETER-IMPORTS.LISP
;;;
;;; There's all sorts of funny business going on with loading the interpreter.


(eval-when (load eval)
  (shadowing-import
    '(
      k-lisp:eval
      k-lisp:evalhook
      k-lisp:applyhook
      k-lisp:*evalhook*
      k-lisp:*applyhook*
      k-lisp:macroexpand
      k-lisp:macroexpand-1
      k-lisp:*macroexpand-hook*
      )
    'interpreter))

(eval-when (load eval)
  (shadowing-import 
    '(
      k-lisp:defun
      k-lisp:defvar
      k-lisp:defparameter
      k-lisp:defconstant
      )
    'interpreter))