;;; 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.
(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
;;;--------------------------------------------------------------------------
;;; 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.
#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