diff options
Diffstat (limited to 'src/interp/union.lisp')
| -rw-r--r-- | src/interp/union.lisp | 61 |
1 files changed, 0 insertions, 61 deletions
diff --git a/src/interp/union.lisp b/src/interp/union.lisp index 955cd4c4..67b99855 100644 --- a/src/interp/union.lisp +++ b/src/interp/union.lisp @@ -55,25 +55,6 @@ (QRPLACD V (SETQ V (CONS I NIL))) ) ) (GO LP) ) ) -(DEFUN INTERSECTIONQ (LIST-OF-ITEMS-1 LIST-OF-ITEMS-2) - (PROG (I H V) - (SETQ V (SETQ H (CONS NIL NIL))) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-1)) - (SETQ LIST-OF-ITEMS-1 (LIST LIST-OF-ITEMS-1)) ) ) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-2)) - (SETQ LIST-OF-ITEMS-2 (LIST LIST-OF-ITEMS-2)) ) ) - LP (COND - ( (NOT (CONSP LIST-OF-ITEMS-1)) - (RETURN (QCDR H)) ) - ( (|symbolMember?| - (SETQ I (QCAR (RESETQ LIST-OF-ITEMS-1 (QCDR LIST-OF-ITEMS-1)))) - (QCDR H)) ) - ( (|symbolMember?| I LIST-OF-ITEMS-2) - (QRPLACD V (SETQ V (CONS I NIL))) ) ) - (GO LP) ) ) - (DEFUN |union| (LIST-OF-ITEMS-1 LIST-OF-ITEMS-2) (PROG (I H V) (SETQ H (SETQ V (CONS NIL NIL))) @@ -97,29 +78,6 @@ (QRPLACD V (SETQ V (CONS I NIL))) ) ) (GO LP1) ) ) -(DEFUN UNIONQ (LIST-OF-ITEMS-1 LIST-OF-ITEMS-2) - (PROG (I H V) - (SETQ H (SETQ V (CONS NIL NIL))) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-1)) - (SETQ LIST-OF-ITEMS-1 (LIST LIST-OF-ITEMS-1)) ) ) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-2)) - (SETQ LIST-OF-ITEMS-2 (LIST LIST-OF-ITEMS-2)) ) ) - LP1 (COND - ( (NOT (CONSP LIST-OF-ITEMS-1)) - (COND - ( (CONSP LIST-OF-ITEMS-2) - (SETQ LIST-OF-ITEMS-1 (RESETQ LIST-OF-ITEMS-2 NIL)) ) - ( 'T - (RETURN (QCDR H)) ) ) ) - ( (NOT - (|symbolMember?| - (SETQ I (QCAR (RESETQ LIST-OF-ITEMS-1 (QCDR LIST-OF-ITEMS-1)))) - (QCDR H))) - (QRPLACD V (SETQ V (CONS I NIL))) ) ) - (GO LP1) ) ) - (DEFUN SETDIFFERENCE (LIST-OF-ITEMS-1 LIST-OF-ITEMS-2) (PROG (I H V) (SETQ H (SETQ V (CONS NIL NIL))) @@ -138,22 +96,3 @@ ( (NOT (|member| I LIST-OF-ITEMS-2)) (QRPLACD V (SETQ V (CONS I NIL))) ) ) (GO LP1) ) ) - -(DEFUN SETDIFFERENCEQ (LIST-OF-ITEMS-1 LIST-OF-ITEMS-2) - (PROG (I H V) - (SETQ H (SETQ V (CONS NIL NIL))) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-1)) - (SETQ LIST-OF-ITEMS-1 (LIST LIST-OF-ITEMS-1)) ) ) - (COND - ( (NOT (LISTP LIST-OF-ITEMS-2)) - (SETQ LIST-OF-ITEMS-2 (LIST LIST-OF-ITEMS-2)) ) ) - LP1 (COND - ( (NOT (CONSP LIST-OF-ITEMS-1)) - (RETURN (QCDR H)) ) - ( (|symbolMember?| - (SETQ I (QCAR (RESETQ LIST-OF-ITEMS-1 (QCDR LIST-OF-ITEMS-1)))) - (QCDR H)) ) - ( (NOT (|symbolMember?| I LIST-OF-ITEMS-2)) - (QRPLACD V (SETQ V (CONS I NIL))) ) ) - (GO LP1) ) ) |