Commented out example expressions.

Pascal J. Bourguignon [2013-12-26 21:40]
Commented out example expressions.
Filename
npc.lisp
npvm.lisp
diff --git a/npc.lisp b/npc.lisp
index c5c5581..6e01f07 100644
--- a/npc.lisp
+++ b/npc.lisp
@@ -156,6 +156,7 @@
       :for pc := (vm-disassemble vm 0) :then (vm-disassemble vm pc)
       :while (< pc (length pgm)))))

+#-(and)
 (np-disassemble (np-compile
                  ;; 5 5 + d !
                  ;; d d * c !
@@ -218,7 +219,7 @@
  ;; 64: (print)
  ;; 65: (stop)

-
+#-(and)
 (vm-run (make-vm :program (np-compile
                            ;; 5 5 + d !
                            ;; d d * c !
diff --git a/npvm.lisp b/npvm.lisp
index 4b8de59..d645bba 100644
--- a/npvm.lisp
+++ b/npvm.lisp
@@ -220,6 +220,7 @@
 (test/vm-push)


+#-(and)
 (vm-run (make-vm :program (vector
                            ;; 5 5 + d !
                            ;; d d * c !
ViewGit