version 1.3, Mon Jun 30 13:27:02 2003 UTC | version 1.4, Thu Jul 3 02:01:26 2003 UTC | ||
---|---|---|---|
|
|
||
; (break) | ; (break) | ||
affine2)) | affine2)) | ||
(defun jointtest (prim1 prim2 affine type) | |||
(filltest | |||
(rmlimit (appendpart prim1 | |||
(affinepart prim2 affine))) type)) | |||
(defun rmlimit (x) | (defun rmlimit (x) | ||
(lets ((elements (cadr x))(ret)) | (lets ((elements (cadr x))(ret)) | ||
(do ((l elements (cdr l))) | (do ((l elements (cdr l))) |
|
ktanaka Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |