From 5b82b34f5c334a94192b4d00282b0799dcd15be7 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 8 Jun 2013 22:24:14 -0700 Subject: [PATCH] Fixed order of loading files --- src/cmp/cmpc-machine.lsp | 1 - src/cmp/load.lsp.in | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) 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+))