marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Fix let function

Browse source
This commit is contained in:
Marcus Kammer 2023-08-10 18:20:29 +02:00
parent a2e65b7767
commit 9949912e41
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/component/badge.lisp
View file

@ -78,7 +78,7 @@ PILL: (optional) If true, the badge will have 'rounded-pill' style.
The newly defined macro, when called, will generate HTML for a Bootstrap
badge of the specified type."
(let* ((macro-name (intern (string-upcase (concatenate 'string "BADGE-" (if (null pill) "" "PILL-") color)))))
(let ((macro-name (intern (string-upcase (concatenate 'string "BADGE-" (if (null pill) "" "PILL-") color)))))
`(defmacro ,macro-name (&body body)
`(badge (:color ,,color :pill ,,pill) ,@body))))