From 9741f9cd382b5fb8e44e99d8fdbd708a1c47d54f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 23 Jun 2011 03:43:59 +0000
Subject: revert accidental debug commit
---
src/lisp/core.lisp.in | 6 ------
1 file changed, 6 deletions(-)
(limited to 'src/lisp')
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
--
cgit v1.2.3