changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/obj/hash/set.lisp

changeset 698: 96958d3eb5b0
parent: 9e7d4393eac6
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; lib/obj/hash/set.lisp --- HashSets
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (in-package :obj/hash)
     7 
     8 ;;; SOLIST
     9 
    10 ;; Lockfree hashsets
    11 
    12 ;; see file src/code/solist.lisp
    13 
    14 (defmacro make-so-set (&optional (type :addr))
    15   "Return a SOLIST set. Type is of type SOLIST-ELEMENT-DESIGNATOR."
    16   (declare (solist-element-designator type))
    17   `(case ,type
    18      (:fixnum ,(make-so-set/fixnum))
    19      (:string ,(make-so-map/string))
    20      (:addr ,(make-so-set/addr))))