cantedraw.lisp -> main.lisp

This commit is contained in:
2025-02-14 15:12:10 +00:00
parent b335a12b78
commit 4c27e7d5c1
3 changed files with 6 additions and 6 deletions

View File

@@ -2,10 +2,10 @@
:components ((:file "packages")
(:file "lib.macros")
(:file "lib.functions")
(:file "cantedraw"))
(:file "main"))
:build-operation "program-op"
:build-pathname "bin/cantedraw"
:entry-point "cantedraw:start")
:entry-point "main:start")
#+sb-core-compression
(defmethod asdf:perform ((o asdf:image-op) (c asdf:system))

View File

@@ -1,4 +1,4 @@
;;; cantedraw.lisp - 2025-02-11
;;; main.lisp - 2025-02-11
;; Copyright (C) 2025 Aryadev Chavali
@@ -13,12 +13,12 @@
;;; 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.
;;; Code:
(in-package :cantedraw)
(in-package :main)
(fn read-input (&optional (prompt "> ")) (-> (&optional string) string)
(format t "~a" prompt)

View File

@@ -32,6 +32,6 @@
:range :take :split
:rev-map))
(defpackage cantedraw
(defpackage main
(:use :cl :lib.macros :lib.functions)
(:export :start))