[wadalabfont-kit] / lisp / tools / version.l  

Diff of /lisp/tools/version.l

Parent Directory | Revision Log

version 1.1, Thu Dec 28 08:54:20 2000 UTC version 1.2, Fri Jun 20 11:40:23 2003 UTC
Line 3 
Line 3 
 ;; $Revision$  ;; $Revision$
 ;;  ;;
   
 (defun version-up-skelton (prim)  (defun version-up-skeleton (prim)
   (let ((points (get-points prim))    (let ((points (get-points prim))
         (elems  (get-lines prim))          (elems  (get-lines prim))
         (aux    (get-aux-info prim)))          (aux    (get-aux-info prim)))
Line 38 
Line 38 
     (mapcar '(¤Ñ ¤Ô ¤× ¤Ú ¤Ý ¡û)      (mapcar '(¤Ñ ¤Ô ¤× ¤Ú ¤Ý ¡û)
             #'(lambda (x)              #'(lambda (x)
                 (prind `(setq ,x                  (prind `(setq ,x
                               ',(version-up-skelton (eval x))))))                                ',(version-up-skeleton (eval x))))))
     (close standard-output)))      (close standard-output)))
   
   

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