First ugly pass of show

diff --git a/src/main/nvm.lisp b/src/main/nvm.lisp
index 011eb6d8158c9ce1452f3cabf422bf5352b47c79..de63bf1fd932229c70b6a9d8e24654f89a5e2946 100644 (file)
--- 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 ced547033adca3e2fad87af25cd83cbbb9693e75..40be292d3d97fe2ab18955627409aaac2cfe35d8 100644 (file)
--- 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 159a2173a451dca3536f4572c4cbc1f182406e14..80fe4afe9b4220059dbdd04089550445f4ef3820 100644 (file)
--- 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)