diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-06-23 03:43:59 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-06-23 03:43:59 +0000 |
| commit | 9741f9cd382b5fb8e44e99d8fdbd708a1c47d54f (patch) | |
| tree | b21f153e92b30b379abeaa963fa9956fdf439501 /src/lisp | |
| parent | f56be9ed6d6a46f558dfa4e65bc261b61739d91d (diff) | |
| download | open-axiom-9741f9cd382b5fb8e44e99d8fdbd708a1c47d54f.tar.gz | |
revert accidental debug commit
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 6 |
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 |