From 11a8511f71438de87bceab1bfa4cadfa368eec10 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Fri, 17 Jun 2022 11:58:25 -0400
Subject: [PATCH] and load-only-once to load-css

---
 source/clog-document.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/source/clog-document.lisp b/source/clog-document.lisp
index b78944e..2755826 100644
--- a/source/clog-document.lisp
+++ b/source/clog-document.lisp
@@ -161,8 +161,9 @@ returns css-url."))
     (cond ((not (and load-only-once loaded))
 	   (jquery-execute (head-element obj)
 			   (format nil "append('<link rel=\"stylesheet\" href=\"~A\" type=\"text/css\">')"
-				   (escape-string css-url))))
-	  (setf (connection-data-item obj (format nil "clog-~A" css-url)) t)
+				   (escape-string css-url)))
+	   (setf (connection-data-item obj (format nil "clog-~A" css-url)) t)
+	   css-url)
 	  (t
 	   t))))