X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/1f1d88f5234188f70548a04fd117ac6e251fe8de..a07d8d005f69c0f9f5da2e09c6ee39cb1e1801aa:/output.lisp

diff --git a/output.lisp b/output.lisp
index 67d2907..b0df32b 100644
--- a/output.lisp
+++ b/output.lisp
@@ -29,12 +29,9 @@
 ;;; Sequencing machinery.
 
 (defclass sequencer-item ()
-  ((name :initarg :name
-	 :reader sequencer-item-name)
-   (functions :initarg :functions
-	      :initform nil
-	      :type list
-	      :accessor sequencer-item-functions))
+  ((name :initarg :name :reader sequencer-item-name)
+   (functions :initarg :functions :initform nil
+	      :type list :accessor sequencer-item-functions))
   (:documentation
    "Represents a distinct item to be sequenced by a SEQUENCER.
 
@@ -46,10 +43,8 @@
     (prin1 (sequencer-item-name item) stream)))
 
 (defclass sequencer ()
-  ((constraints :initarg :constraints
-		:initform nil
-		:type list
-		:accessor sequencer-constraints)
+  ((constraints :initarg :constraints :initform nil
+		:type list :accessor sequencer-constraints)
    (table :initform (make-hash-table :test #'equal)
 	  :reader sequencer-table))
   (:documentation
@@ -157,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.
 
@@ -196,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