"use" serapeum and alexandria
This commit is contained in:
@@ -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)))
|
||||
|
||||
Reference in New Issue
Block a user