/[defdoc]/DefDoc/src/layout/engine-framework.lisp
ViewVC logotype

Diff of /DefDoc/src/layout/engine-framework.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by rjain, Sun Dec 7 23:27:06 2003 UTC revision 1.3 by rjain, Mon Feb 16 05:44:57 2004 UTC
# Line 262  returning the objects that result." Line 262  returning the objects that result."
262    (let ((*vertical-sequence* '())    (let ((*vertical-sequence* '())
263          (*vertical-sequence-tail* '())          (*vertical-sequence-tail* '())
264          (*header-level* 1))          (*header-level* 1))
265      (dolist (subelement (contents input))      (prepare input output)
       (prepare subelement output))  
266      (compute-breaks input *vertical-sequence* output)))      (compute-breaks input *vertical-sequence* output)))
267    
268  (defmethod convert :around ((input toplevel-element) (output t))  (defmethod convert :around ((input toplevel-element) (output t))
# Line 288  returning the objects that result." Line 287  returning the objects that result."
287      (call-next-method))      (call-next-method))
288    t)    t)
289    
290    (defmethod convert ((input defdoc.elements:abbreviation) (output t))
291      (dolist (element (contents input))
292        (convert element output)))

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5