diff --git a/src/cmp/cmpc-machine.lsp b/src/cmp/cmpc-machine.lsp index cf0e66bd0..27627484b 100644 --- a/src/cmp/cmpc-machine.lsp +++ b/src/cmp/cmpc-machine.lsp @@ -168,4 +168,3 @@ (typep number (rep-type-lisp-type (gethash :fixnum number)))) (defconstant +default-machine+ (setf *machine* (default-machine))) - diff --git a/src/cmp/load.lsp.in b/src/cmp/load.lsp.in index f955d3257..086f85a94 100644 --- a/src/cmp/load.lsp.in +++ b/src/cmp/load.lsp.in @@ -19,7 +19,6 @@ "src:cmp;cmpenv-declare.lsp" "src:cmp;cmpenv-proclaim.lsp" "src:cmp;cmpenv-declaim.lsp" - "src:cmp;sysfun.lsp" "src:cmp;cmpc-machine.lsp" "src:cmp;cmpc-wt.lsp" "src:cmp;cmpc-inliner.lsp" @@ -64,7 +63,8 @@ "src:cmp;cmpos-run.lsp" "src:cmp;cmpos-features.lsp" "src:cmp;cmpmain.lsp" - "src:cmp;proclamations.lsp")) + "src:cmp;proclamations.lsp" + "src:cmp;sysfun.lsp")) (let ((si::*keep-documentation* nil)) (mapc #'(lambda (x) (load x :verbose t)) +cmp-module-files+))