changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/obj/hash/map.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/map.lisp --- HashMaps
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (in-package :obj/hash)
     7 
     8 ;;; SOLIST
     9 
    10 ;; Lockfree Maps
    11 
    12 (defmacro make-so-map (&optional (type :addr))
    13   "Return a SOLIST map. Type may be either FIXNUM or STRING."
    14   (declare (solist-element-designator type))
    15   `(case ,type
    16      (:fixnum ,(make-so-map/fixnum))
    17      (:string ,(make-so-map/string))
    18      (:addr ,(make-so-map/addr))))