clone()

6 years ago · 0ac29cea68
parent dad706a5bf
commit 0ac29cea68
1 changed files with 4 additions and 0 deletions
--- a/cl-box.lisp
+++ b/cl-box.lisp
@ -69,6 +69,10 @@
 		(<- () (<-! ,name)))
 	   ,@things)))))

+(defun clone(box)
+  (with box
+	(make-box (<-))))
+
 ))

 (defun test ()