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

Proposed by OK2 on 2012-01-10
Status: Merged
Merged at revision: 19
Proposed branch: lp:~ok2/retro-language/lisp
Merge into: lp:retro-language
Diff against target: 27 lines (+8/-2)
1 file modified
vm/complete/lisp/ngaro.lisp (+8/-2)
To merge this branch: bzr merge lp:~ok2/retro-language/lisp
Reviewer Review Type Date Requested Status
OK2 (community) Approve on 2012-01-11
Review via email: mp+88126@code.launchpad.net

Description of the change

Support of -13 and -14 in Lisp VM.

To post a comment you must log in.
lp:~ok2/retro-language/lisp updated on 2012-01-11
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

Preview Diff

[H/L] Next/Prev Comment, [J/K] Next/Prev File, [N/P] Next/Prev Hunk
1=== modified file 'vm/complete/lisp/ngaro.lisp'
2--- vm/complete/lisp/ngaro.lisp 2012-01-10 07:32:01 +0000
3+++ vm/complete/lisp/ngaro.lisp 2012-01-10 21:50:28 +0000
4@@ -13,7 +13,9 @@
5 (defparameter *ports-depth* 12)
6 (defparameter *files-depth* 1024)
7
8-(deftype cell () '(signed-byte 32))
9+(defconstant +cell-size+ 32)
10+
11+(deftype cell () `(signed-byte ,+cell-size+))
12 #+(or big-endian ecl)
13 (setf *image-file* (concatenate 'string *image-file* "BE"))
14
15@@ -245,7 +247,11 @@
16 finally (setf (aref *image* (1+ d)) 0)))
17 (drop 2))
18 ((-11) (setf (aref *ports* 5) 80))
19- ((-12) (setf (aref *ports* 5) 25))))))
20+ ((-12) (setf (aref *ports* 5) 25))
21+ ((-13) (setf (aref *ports* 5) +cell-size+))
22+ ((-14) (setf (aref *ports* 5)
23+ #+big-endian 1
24+ #-big-endian 0))))))
25
26 (defun ngaro ()
27 (console-prepare)

Subscribers

People subscribed via source and target branches