Corrected indentation.

Pascal J. Bourguignon [2013-12-26 21:49]
Corrected indentation.
Filename
npc.lisp
diff --git a/npc.lisp b/npc.lisp
index 59fd4e7..9ba4abe 100644
--- a/npc.lisp
+++ b/npc.lisp
@@ -34,7 +34,7 @@

 (defpackage "COM.INFORMATIMAGO.COMPILER-VS-INTERPRETER.NP-COMPILER"
   (:use "COMMON-LISP"
-         "COM.INFORMATIMAGO.COMPILER-VS-INTERPRETER.NPVM")
+        "COM.INFORMATIMAGO.COMPILER-VS-INTERPRETER.NPVM")
   (:export
    "NP-COMPILE"
    "PROGN" "<-" "PRINT" "DUMP" "NEG" "+" "*" "-" "/"))
@@ -175,49 +175,49 @@
                    (<- a (+ 4 (* (+ 6 (* (+ 9 (* (+ 1 (* 0 d)) d)) d)) d)))
                    (print a))))

- ;;  0: (pushi 5)
- ;;  2: (pushi 5)
- ;;  4: (add)
- ;;  5: (pushn d)
- ;;  7: (store)
- ;;  8: (pushn d)
- ;; 10: (pushn d)
- ;; 12: (mul)
- ;; 13: (pushn c)
- ;; 15: (store)
- ;; 16: (pushn d)
- ;; 18: (pushn c)
- ;; 20: (mul)
- ;; 21: (pushn b)
- ;; 23: (store)
- ;; 24: (pushn d)
- ;; 26: (print)
- ;; 27: (pushn c)
- ;; 29: (print)
- ;; 30: (pushn b)
- ;; 32: (print)
- ;; 33: (pushi 4)
- ;; 35: (pushi 6)
- ;; 37: (pushi 9)
- ;; 39: (pushi 1)
- ;; 41: (pushi 0)
- ;; 43: (pushn d)
- ;; 45: (mul)
- ;; 46: (add)
- ;; 47: (pushn d)
- ;; 49: (mul)
- ;; 50: (add)
- ;; 51: (pushn d)
- ;; 53: (mul)
- ;; 54: (add)
- ;; 55: (pushn d)
- ;; 57: (mul)
- ;; 58: (add)
- ;; 59: (pushn a)
- ;; 61: (store)
- ;; 62: (pushn a)
- ;; 64: (print)
- ;; 65: (stop)
+;;  0: (pushi 5)
+;;  2: (pushi 5)
+;;  4: (add)
+;;  5: (pushn d)
+;;  7: (store)
+;;  8: (pushn d)
+;; 10: (pushn d)
+;; 12: (mul)
+;; 13: (pushn c)
+;; 15: (store)
+;; 16: (pushn d)
+;; 18: (pushn c)
+;; 20: (mul)
+;; 21: (pushn b)
+;; 23: (store)
+;; 24: (pushn d)
+;; 26: (print)
+;; 27: (pushn c)
+;; 29: (print)
+;; 30: (pushn b)
+;; 32: (print)
+;; 33: (pushi 4)
+;; 35: (pushi 6)
+;; 37: (pushi 9)
+;; 39: (pushi 1)
+;; 41: (pushi 0)
+;; 43: (pushn d)
+;; 45: (mul)
+;; 46: (add)
+;; 47: (pushn d)
+;; 49: (mul)
+;; 50: (add)
+;; 51: (pushn d)
+;; 53: (mul)
+;; 54: (add)
+;; 55: (pushn d)
+;; 57: (mul)
+;; 58: (add)
+;; 59: (pushn a)
+;; 61: (store)
+;; 62: (pushn a)
+;; 64: (print)
+;; 65: (stop)

 #-(and)
 (vm-run (make-vm :program (np-compile
ViewGit