X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fnvm.lisp;h=de63bf1fd932229c70b6a9d8e24654f89a5e2946;hp=011eb6d8158c9ce1452f3cabf422bf5352b47c79;hb=c5613b87ab91b845b628d9201ad053da92912838;hpb=a4cc3c4533c1745362078c607e34e3448ac4feb4

diff --git a/src/main/nvm.lisp b/src/main/nvm.lisp
index 011eb6d..de63bf1 100644
--- a/src/main/nvm.lisp
+++ b/src/main/nvm.lisp
@@ -7,6 +7,9 @@
 (defstruct turtle who color heading)
 (defvar *turtles* nil)
 
+(defun show (n)
+ (format t "Showing: ~A~%" n))
+
 (defun create-turtle ()
  (push
   (make-turtle :who *current-id*