From 0ac29cea684884f71f56da541a24f0a07d13c413 Mon Sep 17 00:00:00 2001 From: Avril Date: Fri, 12 Apr 2019 15:19:18 +0100 Subject: [PATCH] clone() --- cl-box.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/cl-box.lisp b/cl-box.lisp index 35902c1..9c00734 100644 --- a/cl-box.lisp +++ b/cl-box.lisp @@ -69,6 +69,10 @@ (<- () (<-! ,name))) ,@things))))) +(defun clone(box) + (with box + (make-box (<-)))) + )) (defun test ()