From: Frank Duncan <frank@kank.net>
Date: Mon, 8 Jun 2015 04:08:50 +0000 (-0500)
Subject: First ugly pass of show
X-Git-Tag: v0.0.0~14
X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=commitdiff_plain;h=c5613b87ab91b845b628d9201ad053da92912838

First ugly pass of show
---

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*
diff --git a/src/main/parse.lisp b/src/main/parse.lisp
index ced5470..40be292 100644
--- a/src/main/parse.lisp
+++ b/src/main/parse.lisp
@@ -57,4 +57,8 @@
    *prims*))
 
 ; This list of prims will get combined with the mapping to actual code later
+; Current list of argument types we accept:
+; - :number
+; - t - any type
 (defprim :crt (:number))
+(defprim :show (t))
diff --git a/src/main/transpile.lisp b/src/main/transpile.lisp
index 159a217..80fe4af 100644
--- a/src/main/transpile.lisp
+++ b/src/main/transpile.lisp
@@ -48,3 +48,4 @@
 
 ; We count on the parser to handle arguemnts for us, when collating things.
 (defprim :crt :command cl-nl.nvm::create-turtles)
+(defprim :show :command cl-nl.nvm::show)