# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID 7412629f5c783db8b022a1e4de853415ce097c77
# Parent  55c188ef8b0a939b6d0d3d6a655bddd990b9f7c4
Twiddle meredith methods.

Ignore-this: 57c8ad7ac505841068f1b69498245d1

darcs-hash:20100414185135-16a00-e5e008cec50a531fd23e01e57379adab5fa76c2b.gz

committer: Jamie Forth <j.forth@gold.ac.uk>

diff -r 55c188ef8b0a -r 7412629f5c78 implementations/meredith/methods.lisp
--- a/implementations/meredith/methods.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/implementations/meredith/methods.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -1,13 +1,17 @@
 (cl:in-package #:amuse-meredith)
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;=====================================================================
 ;;; Specialised constructors
+;;;=====================================================================
+
 (defmethod make-composition-identifier ((package (eql *package*))
 				       composition-id)
   (make-meredith-composition-identifier composition-id))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Compositions
+
+;;;=====================================================================
+;;; Specialized composition methods
+;;;=====================================================================
 
 (defvar *event-attributes*
   #.(clsql:locally-enable-sql-reader-syntax)