Make Colima Laboratory instance

melusina-org · Oct 18, 2024 · 663d44e · 663d44e
1 parent 2ce726d
commit 663d44e
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/libexec/lisp/colima.lisp b/libexec/lisp/colima.lisp
@@ -22,6 +22,7 @@
    #:instance-memory-size
    #:instance-disk-size
 
+   #:make-laboratory-instance
    #:list-instances
    #:find-instance
    #:start-instance
@@ -63,6 +64,11 @@ This can be one of the values :AARCH64 or :X86_64.")
     :reader instance-disk-size
     :documentation "The size of instance disk storage in GB.")))
 
+(defun make-laboratory-instance ()
+  (make-instance 'instance
+		 :name "laboratory"
+		 :memory-size 4))
+
 (defmethod print-object ((instance instance) stream)
   (print-unreadable-object (instance stream :type t :identity t)
     (with-slots (name status) instance