fix to package

This commit is contained in:
David Botton 2021-03-09 10:14:38 -05:00
parent 3828139e0b
commit 69ba959548

View file

@ -19,7 +19,7 @@
;;;; --------------------------------------------------------- ;;;; ---------------------------------------------------------
(defpackage #:clog-user (defpackage #:clog-user
(:use #:cl #:clog) (:use #:cl #:clog #:clog-web)
(:export start-tutorial)) (:export start-tutorial))
(in-package :clog-user) (in-package :clog-user)
@ -29,7 +29,7 @@
(setf (title (html-document body)) "Tutorial 25") (setf (title (html-document body)) "Tutorial 25")
;; Setup two sections = command and result ;; Setup two sections = command and result
(let ((command-section (create-web-content body)) (let ((command-section (create-web-content body))
(results-section (create-web-content body))) (results-section (create-web-content body :class "w3-monospace")))
;; Setup command section ;; Setup command section
(let* ((form (create-form command-section)) (let* ((form (create-form command-section))
(command (create-form-element form :text (command (create-form-element form :text