[wadalabfont-kit] / lisp / test / out2ps.l  

Diff of /lisp/test/out2ps.l

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:19 2000 UTC version 1.2, Fri Jun 20 11:40:23 2003 UTC
Line 29 
Line 29 
                  (err:undefined-function #'(lambda (x (y))(throw 'err)))                   (err:undefined-function #'(lambda (x (y))(throw 'err)))
                  (err:zero-division #'(lambda (x (y))(throw 'err))))                   (err:zero-division #'(lambda (x (y))(throw 'err))))
              (catch 'err               (catch 'err
                (skelton2list (applykanji (car ol)) tag))))                 (skeleton2list (applykanji (car ol)) tag))))
      (cond       (cond
       ((atom l)        ((atom l)
        (format "0 setlinewidth newpath 0 0 moveto 400 0 lineto/n")         (format "0 setlinewidth newpath 0 0 moveto 400 0 lineto/n")


Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help