numbering.lisp

   1 (in-package :gsharp-numbering)
   2
   3 (defmethod number ((element element))
   4   (position element (elements (bar element))))
   5
   6 (defmethod number ((bar bar))
   7   (position bar (bars (slice bar))))
   8
   9 (defmethod number ((slice slice))
  10   (let ((layer (layer slice)))
  11     (cond ((eq slice (head layer)) 0)
  12           ((eq slice (body layer)) 1)
  13           ((eq slice (tail layer)) 2))))
  14
  15 (defmethod number ((layer layer))
  16   (position layer (layers (segment layer))))
  17
  18 (defmethod number ((segment segment))
  19   (position segment (segments (buffer segment))))
  20