Add technical overview

This commit is contained in:
David Botton 2022-02-14 21:49:19 -05:00
parent ddcb66235d
commit 9641752f5c
3 changed files with 120 additions and 8 deletions

View file

@ -47,7 +47,7 @@
(declare (ignore obj))
(setf (value i2) (my-slot lisp-obj))))
;; This updates an element on the page by just changing the value of the linked
;; slot
;; slot and my-count can be adjusted mid loop from web page
(loop
(cond ((> (my-count lisp-obj) 0)
(decf (my-count lisp-obj))