aboutsummaryrefslogtreecommitdiff
path: root/src/lisp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-06-23 03:41:08 +0000
committerdos-reis <gdr@axiomatics.org>2011-06-23 03:41:08 +0000
commitf56be9ed6d6a46f558dfa4e65bc261b61739d91d (patch)
tree98560e24ee385a655c5095e9399cc4b78fcf49ae /src/lisp
parent5c371a307a201cf425f848d0a0b24631ff47978e (diff)
downloadopen-axiom-f56be9ed6d6a46f558dfa4e65bc261b61739d91d.tar.gz
* driver/Makefile.in (open_axiom_LDADD): Use library archives for
linking, to prevent accidental use of dynamic libraries.
Diffstat (limited to 'src/lisp')
-rw-r--r--src/lisp/core.lisp.in7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 1638f75d..17bde458 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -938,6 +938,9 @@
(progn
(mapcar #'(lambda (p) (|loadOrElse| p)) lisp-files)
(eval prologue)
+ (let ((d nil))
+ (maphash #'(lambda (k v) (setq d (cons (cons k v) d))) |$driverTable|)
+ (format t "~%==> driver table before saveCore = ~s <==~%" d))
(|saveCore| core-image entry-point))
#+:ecl
(let* ((compiler::*ld* oa-cxx)
@@ -959,6 +962,7 @@
(|coreQuit|)))
)
+(trace |link|)
;;
;; -*- Handling Command Line Arguments -*-
@@ -1169,6 +1173,9 @@
(defun |topLevel|()
(let ((*package* (find-package "AxiomCore"))
(command-args (|getCommandLineArguments|)))
+ (let ((d nil))
+ (maphash #'(lambda (k v) (setq d (cons (cons k v) d))) |$driverTable|)
+ (format t "~%==> driver table = ~s <==~%" d))
(when (null command-args)
(|internalError| "empty command line args"))
;; Existing system programming practive, and POSIX, have it