Gives a hand from a shuffled deck to the user, asks them to provide indices for cards they wish to re-deal then does so.
17 lines
525 B
Common Lisp
17 lines
525 B
Common Lisp
(asdf:defsystem :cantedraw
|
|
:depends-on (:alexandria)
|
|
:components ((:file "packages")
|
|
(:file "lib.macros")
|
|
(:file "lib.functions")
|
|
(:file "model")
|
|
(:file "main"))
|
|
:build-operation "program-op"
|
|
:build-pathname "bin/cantedraw"
|
|
:entry-point "cantedraw.main:start")
|
|
|
|
#+sb-core-compression
|
|
(defmethod asdf:perform ((o asdf:image-op) (c asdf:system))
|
|
(uiop:dump-image (asdf:output-file o c)
|
|
:executable t
|
|
:compression 9))
|