diff options
Diffstat (limited to 'src/interp/union.lisp')
| -rw-r--r-- | src/interp/union.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/union.lisp b/src/interp/union.lisp index 6698e36d..311ffff0 100644 --- a/src/interp/union.lisp +++ b/src/interp/union.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007, Gabriel Dos Reis. +;; Copyright (C) 2007-2010, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -67,10 +67,10 @@ LP (COND ( (NOT (PAIRP LIST-OF-ITEMS-1)) (RETURN (QCDR H)) ) - ( (QMEMQ + ( (MEMQ (SETQ I (QCAR (RESETQ LIST-OF-ITEMS-1 (QCDR LIST-OF-ITEMS-1)))) (QCDR H)) ) - ( (QMEMQ I LIST-OF-ITEMS-2) + ( (MEMQ I LIST-OF-ITEMS-2) (QRPLACD V (SETQ V (CONS I NIL))) ) ) (GO LP) ) ) @@ -114,7 +114,7 @@ ( 'T (RETURN (QCDR H)) ) ) ) ( (NOT - (QMEMQ + (MEMQ (SETQ I (QCAR (RESETQ LIST-OF-ITEMS-1 (QCDR LIST-OF-ITEMS-1)))) (QCDR H))) (QRPLACD V (SETQ V (CONS I NIL))) ) ) @@ -151,9 +151,9 @@ LP1 (COND ( (NOT (PAIRP LIST-OF-ITEMS-1)) (RETURN (QCDR H)) ) - ( (QMEMQ + ( (MEMQ (SETQ I (QCAR (RESETQ LIST-OF-ITEMS-1 (QCDR LIST-OF-ITEMS-1)))) (QCDR H)) ) - ( (NOT (QMEMQ I LIST-OF-ITEMS-2)) + ( (NOT (MEMQ I LIST-OF-ITEMS-2)) (QRPLACD V (SETQ V (CONS I NIL))) ) ) (GO LP1) ) ) |