aboutsummaryrefslogtreecommitdiff
path: root/src/interp/boot-pkg.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/boot-pkg.lisp')
-rw-r--r--src/interp/boot-pkg.lisp7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/boot-pkg.lisp b/src/interp/boot-pkg.lisp
index 1454ba18..95c14b2f 100644
--- a/src/interp/boot-pkg.lisp
+++ b/src/interp/boot-pkg.lisp
@@ -44,6 +44,13 @@
"loadSystemRuntimeCore"))
(in-package "BOOT")
+
+(eval-when
+ #+:common-lisp (:compile-toplevel :load-toplevel :execute)
+ #-:common-lisp (compile load eval)
+ (defun define-function (f v)
+ (setf (symbol-function f) v)))
+
;; Below are some missing functions. There here for lack of better
;; place (sys-funs.lisp?)