aboutsummaryrefslogtreecommitdiff
path: root/src/lisp/core.lisp.in
diff options
context:
space:
mode:
Diffstat (limited to 'src/lisp/core.lisp.in')
-rw-r--r--src/lisp/core.lisp.in6
1 files changed, 0 insertions, 6 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 17bde458..7325d641 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -938,9 +938,6 @@
(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)
@@ -1173,9 +1170,6 @@
(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