Revision Log
| version 1.1, Thu Jun 19 08:15:20 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 |