version 1.1, Thu Jun 19 08:15:19 2003 UTC | version 1.2, Thu Jul 3 02:01:26 2003 UTC | ||
---|---|---|---|
|
|
||
; それを補うものも定義する | ; それを補うものも定義する | ||
; | ; | ||
; 与えるパラメータはpointarrayを2つとvectorarray | ; 与えるパラメータはpointarrayを2つとvectorarray | ||
; | |||
; 組合わせのためだけに存在する仮想的なxlimit, ylimit | |||
; というエレメントを除く | |||
; | |||
(defun rm-limit (prim) | |||
(do ((l (cadr prim) (cdr l))(ret)) | |||
((atom l)`(,(car prim) ,(nreverse ret).,(cddr prim))) | |||
(or (memq (caar l) '(xlimit ylimit)) | |||
(push (car l) ret)))) |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |