Lots more has happened.

[sod] / output.lisp

diff --git a/output.lisp b/output.lisp
index 05be7f8..b0df32b 100644 (file)
--- a/output.lisp
+++ b/output.lisp
@@ -152,14 +152,6 @@
 ;;;--------------------------------------------------------------------------
 ;;; Utilities.
 
-(defun banner (title output &key (blank-line-p t))
-  (format output "~&~%/*----- ~A ~A*/~%"
-         title
-         (make-string (- 77 2 5 1 (length title) 1 2)
-                      :initial-element #\-))
-  (when blank-line-p
-    (terpri output)))
-
 ;;;--------------------------------------------------------------------------
 ;;; Header output.
 
@@ -191,17 +183,7 @@
 #endif~%"
                (namestring (module-name module))
                (or (getf (module-plist module) 'include-guard)
-                   (with-output-to-string (guard)
-                     (let ((name (namestring file))
-                           (uscore t))
-                       (dotimes (i (length name))
-                         (let ((ch (char name i)))
-                           (cond ((alphanumericp ch)
-                                  (write-char (char-upcase ch) guard)
-                                  (setf uscore nil))
-                                 ((not uscore)
-                                  (write-char #\_ guard)
-                                  (setf uscore t)))))))))
+                   ))
 
          ;; Forward declarations of all the structures and types.  Nothing
          ;; interesting gets said here; this is just so that the user code