summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
a9cffac)
This is better because load time happens before the image is dumped.
Also, remove some pointless `clear-the-decks' calls.
(cl:in-package #:sod-frontend)
;;;--------------------------------------------------------------------------
(cl:in-package #:sod-frontend)
;;;--------------------------------------------------------------------------
+;;; Preparation for dumping.
+
+(make-builtin-module)
+
+;;;--------------------------------------------------------------------------
;;; The main program.
(eval-when (:compile-toplevel :load-toplevel :execute)
;;; The main program.
(eval-when (:compile-toplevel :load-toplevel :execute)
(or builtinsp args))
(die-usage))
(or builtinsp args))
(die-usage))
- ;; Prepare the builtins.
- (make-builtin-module)
-
;; Do the main parsing job.
(multiple-value-bind (hunoz nerror nwarn)
(count-and-report-errors ()
;; Do the main parsing job.
(multiple-value-bind (hunoz nerror nwarn)
(count-and-report-errors ()
;; If we're writing the builtin module then now seems like a
;; good time to do that.
(when builtinsp
;; If we're writing the builtin module then now seems like a
;; good time to do that.
(when builtinsp
(hack-module *builtin-module*))
;; Parse and write out the remaining modules.
(dolist (arg args)
(hack-module *builtin-module*))
;; Parse and write out the remaining modules.
(dolist (arg args)
(hack-module (read-module arg))))))
;; Report on how well everything worked.
(hack-module (read-module arg))))))
;; Report on how well everything worked.