diff options
author | dos-reis <gdr@axiomatics.org> | 2011-06-23 03:41:08 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-06-23 03:41:08 +0000 |
commit | f56be9ed6d6a46f558dfa4e65bc261b61739d91d (patch) | |
tree | 98560e24ee385a655c5095e9399cc4b78fcf49ae /src/lisp | |
parent | 5c371a307a201cf425f848d0a0b24631ff47978e (diff) | |
download | open-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.in | 7 |
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 |