add-to-eset

Purpose
Add item to eset if it is not already present using eq as the comparison function.

Package   :gbbopen-tools

Module   :gbbopen-tools

Arguments and values

Returns
The item

See also
    in-eset
    make-eset
    delete-from-eset

Examples

  > (defparameter *eset* (make-eset))
  *eset
  > (in-eset 'x *eset*)
  nil
  nil
  > (add-to-eset 'x *eset*)
  x
  > (in-eset 'x *eset*)
  x
  t
  > (in-eset nil *eset*)
  nil
  nil
  > (add-to-eset nil *eset*)
  nil
  > (in-eset nil *eset*)
  nil
  t
  > 

add-to-eset