diff options
Diffstat (limited to 'mc.lsp')
| -rw-r--r-- | mc.lsp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/mc.lsp b/mc.lsp index e096376..42b2f8b 100644 --- a/mc.lsp +++ b/mc.lsp @@ -1,3 +1,6 @@ +;;; Port of https://stackoverflow.com/questions/3984296/model-view-controller-design-pattern-code-example. +;;; Model and Controller classes. + (require "json") (defpackage #:mc (:use #:openlisp #:json) @@ -26,3 +29,4 @@ (defgeneric on-button-clicked (controller)) (defmethod on-button-clicked ((controller <graph-controller>)) (increase-number (model controller))) +(provide "mc") |