From f56be9ed6d6a46f558dfa4e65bc261b61739d91d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 23 Jun 2011 03:41:08 +0000 Subject: * driver/Makefile.in (open_axiom_LDADD): Use library archives for linking, to prevent accidental use of dynamic libraries. --- src/lisp/core.lisp.in | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/lisp') 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 -- cgit v1.2.3