cantedraw.lisp -> main.lisp
This commit is contained in:
@@ -2,10 +2,10 @@
|
|||||||
:components ((:file "packages")
|
:components ((:file "packages")
|
||||||
(:file "lib.macros")
|
(:file "lib.macros")
|
||||||
(:file "lib.functions")
|
(:file "lib.functions")
|
||||||
(:file "cantedraw"))
|
(:file "main"))
|
||||||
:build-operation "program-op"
|
:build-operation "program-op"
|
||||||
:build-pathname "bin/cantedraw"
|
:build-pathname "bin/cantedraw"
|
||||||
:entry-point "cantedraw:start")
|
:entry-point "main:start")
|
||||||
|
|
||||||
#+sb-core-compression
|
#+sb-core-compression
|
||||||
(defmethod asdf:perform ((o asdf:image-op) (c asdf:system))
|
(defmethod asdf:perform ((o asdf:image-op) (c asdf:system))
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
;;; cantedraw.lisp - 2025-02-11
|
;;; main.lisp - 2025-02-11
|
||||||
|
|
||||||
;; Copyright (C) 2025 Aryadev Chavali
|
;; Copyright (C) 2025 Aryadev Chavali
|
||||||
|
|
||||||
@@ -13,12 +13,12 @@
|
|||||||
|
|
||||||
;;; Commentary:
|
;;; Commentary:
|
||||||
|
|
||||||
;; Implementation of `cantedraw' package. Defines the entrypoint of the program,
|
;; Implementation of `main' package. Defines the entrypoint of the program,
|
||||||
;; handling any input from the user and passing it into the system.
|
;; handling any input from the user and passing it into the system.
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(in-package :cantedraw)
|
(in-package :main)
|
||||||
|
|
||||||
(fn read-input (&optional (prompt "> ")) (-> (&optional string) string)
|
(fn read-input (&optional (prompt "> ")) (-> (&optional string) string)
|
||||||
(format t "~a" prompt)
|
(format t "~a" prompt)
|
||||||
@@ -32,6 +32,6 @@
|
|||||||
:range :take :split
|
:range :take :split
|
||||||
:rev-map))
|
:rev-map))
|
||||||
|
|
||||||
(defpackage cantedraw
|
(defpackage main
|
||||||
(:use :cl :lib.macros :lib.functions)
|
(:use :cl :lib.macros :lib.functions)
|
||||||
(:export :start))
|
(:export :start))
|
||||||
|
|||||||
Reference in New Issue
Block a user