Merge lp:~ok2/retro-language/lisp into lp:retro-language

[OK2]

Support of -13 and -14 in Lisp VM.

[lp:~ok2/retro-language/lisp]

14. By crc <crc@questor> on 2012-01-11

add tools for setting terminal modes, and image conversion

15. By crc <crc@questor> on 2012-01-11

fix a typo preventing building the c implementation

16. By crc <crc@questor> on 2012-01-11

add a bswap32 implementation to image conversion code

17. By crc <crc@questor> on 2012-01-11

fix segfault in image conversion tool

18. By crc <crc@questor> on 2012-01-11

minor updates to my notes

19. By crc <crc@questor> on 2012-01-11

bits per cell and endian queries for lisp implementation

[OK2 (ok2)]

review: Approve

=== modified file 'vm/complete/lisp/ngaro.lisp'
--- vm/complete/lisp/ngaro.lisp	2012-01-10 07:32:01 +0000
+++ vm/complete/lisp/ngaro.lisp	2012-01-10 21:50:28 +0000
@@ -13,7 +13,9 @@
 (defparameter *ports-depth*          12)
 (defparameter *files-depth*        1024)
 
-(deftype cell () '(signed-byte 32))
+(defconstant +cell-size+ 32)
+
+(deftype cell () `(signed-byte ,+cell-size+))
 #+(or big-endian ecl)
 (setf *image-file* (concatenate 'string *image-file* "BE"))
 
@@ -245,7 +247,11 @@
                        finally (setf (aref *image* (1+ d)) 0)))
                (drop 2))
         ((-11) (setf (aref *ports* 5) 80))
-        ((-12) (setf (aref *ports* 5) 25))))))
+        ((-12) (setf (aref *ports* 5) 25))
+        ((-13) (setf (aref *ports* 5) +cell-size+))
+        ((-14) (setf (aref *ports* 5)
+                     #+big-endian 1
+                     #-big-endian 0))))))
 
 (defun ngaro ()
   (console-prepare)