delete-et

Purpose
Delete item from et if it is present using eq as the comparison function.

Package   :gbbopen-tools

Module   :gbbopen-tools

Arguments and values

Returns
True, if item was deleted from et; nil otherwise

See also
    get-et
    make-et

Examples

  > (defparameter *et* (make-et))
  *et
  > (setf (get-et 'x *et*) 3)
  3
  > (get-et 'x *et*)
  3
  t
  > (delete-et 'x *et*)
  t
  > (get-et 'x *et*)
  nil
  nil
  > (delete-et 'x *et*)
  nil
  > 

delete-et