/[mcclim]/mcclim/graph-formatting.lisp
ViewVC logotype

Diff of /mcclim/graph-formatting.lisp

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

revision 1.7 by mikemac, Fri Mar 21 21:36:59 2003 UTC revision 1.8 by mikemac, Fri Mar 21 22:07:05 2003 UTC
# Line 556  Line 556 
556  (define-graph-test-command bar ()  (define-graph-test-command bar ()
557    (with-text-style (*query-io* (make-text-style :sans-serif nil 10))    (with-text-style (*query-io* (make-text-style :sans-serif nil 10))
558      (format-graph-from-roots      (format-graph-from-roots
559       (list '(:FOO       (list '(:foo
560               (:BAR)               (:bar)
561               (:BAAAAAAAAAAAAAAZ               (:baaaaaaaaaaaaaaz
562                (:A)                (:a)
563                (:B))                (:b))
564               (:Q               (:q
565                (:X) (:Y)))                (:x) (:y)))
566             )             )
567       #'(lambda (x s)       #'(lambda (x s)
568           (prin1 (first x) s))           (prin1 (first x) s))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5