#(#! (lisp::in-package (lisp::quote user::lisp))#! (lisp::export (lisp::quote (lisp::union lisp::nunion lisp::intersection lisp::nintersection lisp::set-difference lisp::nset-difference lisp::set-exclusive-or lisp::nset-exclusive-or lisp::subsetp)))#! (lisp::in-package (lisp::quote lisp::system)) #(:key :test :test-not "UNION not passed a list" "NUNION not passed a list" "INTERSECTION not passed a list" "NINTERSECTION not passed a list" "SET-DIFFERENCE not passed a list" "SET-DIFFERENCE not passed a list" :rev "NSET-DIFFERENCE not passed a list" "NSET-DIFFERENCE not passed a list" "NSET-EXCLUSIVE-OR not passed a list" "SUBSETP not passed a list" system::member1 system::key-list lisp::set-difference system::set-difference-rev system::nset-difference-rev lisp::nil (system::%init . #((system::mf (lisp::quote system::key-list) 0) (system::mfvfun-key (lisp::quote lisp::union) 1 16386 2) (system::mfvfun-key (lisp::quote lisp::nunion) 3 16386 4) (system::mfvfun-key (lisp::quote lisp::intersection) 5 16386 6) (system::mfvfun-key (lisp::quote lisp::nintersection) 7 16386 8) (system::mfvfun-key (lisp::quote lisp::set-difference) 9 16386 10) (system::mf (lisp::quote system::set-difference-rev) 11) (system::mfvfun-key (lisp::quote lisp::nset-difference) 12 16386 13) (system::mf (lisp::quote system::nset-difference-rev) 14) (system::mfvfun-key (lisp::quote lisp::set-exclusive-or) 15 16386 16) (system::mfvfun-key (lisp::quote lisp::nset-exclusive-or) 17 16386 18) (system::mfvfun-key (lisp::quote lisp::subsetp) 19 16386 20)))) )