~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
@@@ mess!
[sod]
/
src
/
frontend.lisp
diff --git
a/src/frontend.lisp
b/src/frontend.lisp
index
92573e7
..
6fb9d2e
100644
(file)
--- a/
src/frontend.lisp
+++ b/
src/frontend.lisp
@@
-31,12
+31,6
@@
(cl:in-package #:sod-frontend)
;;;--------------------------------------------------------------------------
(cl:in-package #:sod-frontend)
;;;--------------------------------------------------------------------------
-;;; Preparation for dumping.
-
-(clear-the-decks)
-(exercise)
-
-;;;--------------------------------------------------------------------------
;;; The main program.
(defvar-unbound *option-parser*
;;; The main program.
(defvar-unbound *option-parser*
@@
-238,6
+232,6
@@
~[~:; ~:*~D error~:P~[~:; and~]~:*~]~
~[~:; ~:*~D warning~:P~]~%"
*program-name* nerror nwarn))
~[~:; ~:*~D error~:P~[~:; and~]~:*~]~
~[~:; ~:*~D warning~:P~]~%"
*program-name* nerror nwarn))
- (
ex
it (if (plusp nerror) 2 0)))))))
+ (
uiop:qu
it (if (plusp nerror) 2 0)))))))
;;;----- That's all, folks --------------------------------------------------
;;;----- That's all, folks --------------------------------------------------