src/final.lisp: Rename from `debug.lisp'.

It's going to get more stuff.

diff --git a/src/Makefile.am b/src/Makefile.am
index 53880d8..c7779f9 100644 (file)
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -90,8 +90,8 @@ LISP_SOURCES          += method-aggregate.lisp
 LISP_SOURCES           += sod-frontend.asd
 LISP_SOURCES           += frontend.lisp optparse.lisp
 
-## Interactive testing.
-LISP_SOURCES           += debug.lisp
+## Finishing touches.
+LISP_SOURCES           += final.lisp
 
 ###--------------------------------------------------------------------------
 ### Constructing an output image.

diff --git a/src/debug.lisp b/src/final.lisp
similarity index 92%
rename from src/debug.lisp
rename to src/final.lisp
index af5f104..dd8834f 100644 (file)
--- a/src/debug.lisp
+++ b/src/final.lisp
@@ -1,6 +1,6 @@
 ;;; -*-lisp-*-
 ;;;
-;;; Debugging utilities for Sod
+;;; Finishing touches for Sod
 ;;;
 ;;; (c) 2015 Straylight/Edgeware
 ;;;
@@ -25,6 +25,9 @@
 
 (cl:in-package #:sod)
 
+;;;--------------------------------------------------------------------------
+;;; Debugging utilities.
+
 (export '*debugout-pathname*)
 (defvar *debugout-pathname* #p"debugout.c")
 

diff --git a/src/sod.asd b/src/sod.asd
index aae3be1..f207df0 100644 (file)
--- a/src/sod.asd
+++ b/src/sod.asd
@@ -164,8 +164,8 @@
    (:file "class-output" :depends-on
          ("classes" "class-layout-impl" "method-impl" "output-proto"))
 
-   ;; Debugging and interactive testing.
-   (:file "debug" :depends-on ("builtin" "module-output"))))
+   ;; Finishing touches of various kinds.
+   (:file "final" :depends-on ("builtin" "module-output"))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Testing.