"use" serapeum and alexandria

This commit is contained in:
2026-01-03 22:01:40 -05:00
parent ac691cd181
commit 0204a521b9
6 changed files with 16 additions and 16 deletions

View File

@@ -1,5 +1,5 @@
(defpackage :lispostory
(:use cl))
(:use :cl :alexandria :serapeum))
(in-package :lispostory)
@@ -18,5 +18,5 @@
(map 'vector func vec))
(defun string-to-hash-table-key (s)
(let ((k2 (string-upcase (serapeum:string-replace " " s ""))))
(let ((k2 (string-upcase (string-replace " " s ""))))
(intern k2 :keyword)))