movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS movitz
by ffjeld 27 Feb '08

27 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv661 Modified Files: asm-x86.lisp Log Message: Add disassembler for opcode-reg-imm. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/27 20:55:50 1.32 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/27 21:22:47 1.33 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.32 2008/02/27 20:55:50 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.33 2008/02/27 21:22:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -217,7 +217,8 @@ (cond ((atom body) nil) - ((member (car body) '(reg-modrm modrm opcode imm-modrm imm opcode-reg pc-rel moffset sreg-modrm)) + ((member (car body) '(reg-modrm modrm opcode imm-modrm imm opcode-reg + opcode-reg-imm pc-rel moffset sreg-modrm)) (list body)) (t (mapcan #'find-forms body))))) (let ((defun-name (intern (format nil "~A-~A" 'instruction-encoder operator)))) @@ -899,6 +900,15 @@ :extra extra-operand)) code)) +(defun decode-opcode-reg-imm (code operator opcode operand-size address-size rex operand-ordering imm-type) + (declare (ignore address-size rex)) + (values (list* operator + (order-operands operand-ordering + :reg (nth (ldb (byte 3 0) opcode) + (register-set-by-mode operand-size)) + :imm (code-call (decode-integer code imm-type)))) + code)) + (defun decode-reg-modrm-16 (code operand-size) (let* ((modrm (pop-code code mod/rm)) (mod (ldb (byte 2 6) modrm)) @@ -1259,8 +1269,18 @@ (t default-rex)))))))))) (defmacro opcode-reg-imm (opcode op-reg op-imm type) - `(return-when - (encode-opcode-reg-imm operator legacy-prefixes ,opcode ,op-reg ,op-imm ',type operator-mode default-rex))) + `(progn + (assembler + (return-when + (encode-opcode-reg-imm operator legacy-prefixes ,opcode ,op-reg ,op-imm ',type operator-mode default-rex))) + (disassembler + (loop for reg from #b000 to #b111 + do (define-disassembler (operator (logior ,opcode reg) operator-mode) + decode-opcode-reg-imm + (operand-ordering operand-formals + :reg ',op-reg + :imm ',op-imm) + ',type))))) (defmacro far-pointer (opcode segment offset offset-type &rest extra) `(when (and (immediate-p ,segment)

1 0

[movitz-cvs] CVS movitz
by ffjeld 27 Feb '08

27 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv28144 Modified Files: asm-x86.lisp Log Message: Add disassembler for sreg-modrm. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/25 23:33:43 1.31 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/27 20:55:50 1.32 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.31 2008/02/25 23:33:43 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.32 2008/02/27 20:55:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -217,7 +217,7 @@ (cond ((atom body) nil) - ((member (car body) '(reg-modrm modrm opcode imm-modrm imm opcode-reg pc-rel moffset)) + ((member (car body) '(reg-modrm modrm opcode imm-modrm imm opcode-reg pc-rel moffset sreg-modrm)) (list body)) (t (mapcan #'find-forms body))))) (let ((defun-name (intern (format nil "~A-~A" 'instruction-encoder operator)))) @@ -312,7 +312,7 @@ -(defmacro define-disassembler ((operator opcode &optional cpu-mode digit backup-p) lambda-list &body body) +(defmacro define-disassembler ((operator opcode &optional cpu-mode digit backup-p operand-size) lambda-list &body body) (cond (digit `(loop for mod from #b00 to #b11 @@ -321,13 +321,13 @@ (ash ,digit 3) (ash mod 6) r/m) - do (define-disassembler (,operator ext-opcode ,cpu-mode nil t) ,lambda-list ,@body)))) + do (define-disassembler (,operator ext-opcode ,cpu-mode nil t ,operand-size) ,lambda-list ,@body)))) ((symbolp lambda-list) - `(setf (opcode-disassembler ,opcode ,cpu-mode) (list ,backup-p ,operator ,cpu-mode ',lambda-list ,@body))) + `(setf (opcode-disassembler ,opcode ,cpu-mode) (list ,backup-p ,operator ,(or operand-size cpu-mode) ',lambda-list ,@body))) (t (let ((defun-name (intern (format nil "~A-~A-~X~@[-~A~]" 'disassembler operator opcode cpu-mode)))) `(progn (defun ,defun-name ,lambda-list ,@body) - (setf (opcode-disassembler ,opcode ',cpu-mode) (list ,backup-p ,operator ',cpu-mode ',defun-name)) + (setf (opcode-disassembler ,opcode ',cpu-mode) (list ,backup-p ,operator ',(or operand-size cpu-mode) ',defun-name)) ',defun-name))))) (defun disassemble-simple-prefix (code operator opcode operand-size address-size rex) @@ -507,7 +507,8 @@ (:32-bit '(:eax :ecx :edx :ebx :esp :ebp :esi :edi)) (:64-bit '(:rax :rcx :rdx :rbx :rsp :rbp :rsi :rdi :r8 :r9 :r10 :r11 :r12 :13 :r14 :r15)) (:mm '(:mm0 :mm1 :mm2 :mm3 :mm4 :mm5 :mm6 :mm7)) - (:xmm '(:xmm0 :xmm1 :xmm2 :xmm3 :xmm4 :xmm5 :xmm6 :xmm7)))) + (:xmm '(:xmm0 :xmm1 :xmm2 :xmm3 :xmm4 :xmm5 :xmm6 :xmm7)) + (:segment '(:es :cs :ss :ds :fs :gs)))) (defun encode-reg/mem (operand mode) (check-type mode (member nil :8-bit :16-bit :32-bit :64-bit :mm :xmm)) @@ -837,12 +838,12 @@ (remove nil fixed-operands)) code)) -(defun decode-reg-modrm (code operator opcode operand-size address-size rex operand-ordering) +(defun decode-reg-modrm (code operator opcode operand-size address-size rex operand-ordering &optional (reg-mode operand-size)) (declare (ignore opcode rex)) (values (list* operator (order-operands operand-ordering :reg (nth (ldb (byte 3 3) (car code)) - (register-set-by-mode operand-size)) + (register-set-by-mode reg-mode)) :modrm (ecase address-size (:32-bit (code-call (decode-reg-modrm-32 code operand-size))) @@ -1131,15 +1132,25 @@ (defmacro reg-cr (op-reg op-cr opcode &rest extras) `(return-when (encode-reg-cr operator legacy-prefixes ,op-reg ,op-cr ,opcode operator-mode default-rex ,@extras))) -(defmacro sreg-modrm (op-sreg op-modrm opcode) - `(let* ((reg-map '(:es :cs :ss :ds :fs :gs)) - (reg-index (position ,op-sreg reg-map))) - (when reg-index - (return-values-when - (merge-encodings (encoded-values :opcode ,opcode - :reg reg-index - :rex default-rex) - (encode-reg/mem ,op-modrm operator-mode)))))) +(defmacro sreg-modrm (op-sreg op-modrm opcode &rest extras) + `(progn + (assembler + (let* ((reg-map '(:es :cs :ss :ds :fs :gs)) + (reg-index (position ,op-sreg reg-map))) + (when reg-index + (return-values-when + (merge-encodings (encoded-values :opcode ,opcode + :reg reg-index + :rex default-rex + ,@extras) + (encode-reg/mem ,op-modrm operator-mode)))))) + (disassembler + (define-disassembler (operator ,opcode nil nil nil :16-bit) + decode-reg-modrm + (operand-ordering operand-formals + :reg ',op-sreg + :modrm ',op-modrm) + :segment)))) (defmacro moffset (opcode op-offset type fixed-operand) `(progn @@ -1812,10 +1823,10 @@ (moffset #xa0 src (uint 16) (dst :ax)) (opcode-reg-imm #xb8 dst src (xint 16)) (imm-modrm src dst #xc7 0 (xint 16)) - (sreg-modrm src dst #x8c) - (sreg-modrm dst src #x8e) (reg-modrm dst src #x8b) - (reg-modrm src dst #x89)) + (reg-modrm src dst #x89) + (sreg-modrm src dst #x8c) + (sreg-modrm dst src #x8e)) (define-operator/32 :movl (src dst) (moffset #xa3 dst (uint 32) (src :eax))

1 0

[movitz-cvs] CVS movitz
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv17288 Modified Files: movitz.asd Log Message: Provide. --- /project/movitz/cvsroot/movitz/movitz.asd 2008/02/25 23:16:21 1.2 +++ /project/movitz/cvsroot/movitz/movitz.asd 2008/02/25 23:43:45 1.3 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <ffjeld(a)common-lisp.net> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: movitz.asd,v 1.2 2008/02/25 23:16:21 ffjeld Exp $ +;;;; $Id: movitz.asd,v 1.3 2008/02/25 23:43:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -28,6 +28,8 @@ :license "BSD-like, see accopanying file COPYING." :description "An (dis-)assembler framework, with support for x86 in 16, 32, and 64-bit modes." :serial t + :perform (load-op :after (op c) + (provide 'movitz-asm)) :components ((:file "asm") (:file "asm-x86"))) @@ -43,6 +45,8 @@ :default-component-class movitz-source-file :serial t :depends-on (binary-types movitz-asm) + :perform (load-op :after (op c) + (provide 'movitz)) :components ((:file "packages") (:file "movitz") (:file "parse")

1 0

[movitz-cvs] CVS binary-types
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/binary-types In directory clnet:/tmp/cvs-serv17193 Modified Files: binary-types.asd Log Message: Provide. --- /project/movitz/cvsroot/binary-types/binary-types.asd 2008/02/25 20:11:41 1.1 +++ /project/movitz/cvsroot/binary-types/binary-types.asd 2008/02/25 23:43:24 1.2 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <ffjeld(a)common-lisp.net> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: binary-types.asd,v 1.1 2008/02/25 20:11:41 ffjeld Exp $ +;;;; $Id: binary-types.asd,v 1.2 2008/02/25 23:43:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -25,4 +25,6 @@ :author "Frode V. Fjeld" :license "BSD-like, see accopanying file COPYING." :description "A library for reading and writing binary records." + :perform (load-op :after (op c) + (provide 'binary-types)) :components ((:file "binary-types")))

1 0

[movitz-cvs] CVS movitz
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv13638 Modified Files: packages.lisp Log Message: Insane hack to make asdf work. Someone please make sense of this. --- /project/movitz/cvsroot/movitz/packages.lisp 2007/03/01 17:49:44 1.56 +++ /project/movitz/cvsroot/movitz/packages.lisp 2008/02/25 23:34:46 1.57 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Nov 15 21:39:55 2003 ;;;; -;;;; $Id: packages.lisp,v 1.56 2007/03/01 17:49:44 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.57 2008/02/25 23:34:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1276,6 +1276,11 @@ #:vector-read-more-p )) +(print '(muerte::un-backquote ; make asdf/sbcl realize that these symbols exists.. + muerte::backquote-comma + muerte::backquote-comma-at + muerte::backquote-comma-dot) + (make-broadcast-stream)) (defpackage #:movitz (:use :common-lisp :binary-types)

1 0

[movitz-cvs] CVS movitz
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv13493 Modified Files: asm.lisp Log Message: Add indirect-operand-offset. --- /project/movitz/cvsroot/movitz/asm.lisp 2008/02/23 22:35:08 1.15 +++ /project/movitz/cvsroot/movitz/asm.lisp 2008/02/25 23:34:11 1.16 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm.lisp,v 1.15 2008/02/23 22:35:08 ffjeld Exp $ +;;;; $Id: asm.lisp,v 1.16 2008/02/25 23:34:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -19,6 +19,9 @@ #:immediate-operand #:indirect-operand-p #:indirect-operand + #:indirect-operand-offset + #:instruction-operands + #:instruction-operator #:register-operand #:resolve-operand #:unresolved-symbol @@ -112,6 +115,12 @@ (defun indirect-operand-p (operand) (typep operand 'indirect-operand)) +(defun indirect-operand-offset (operand) + (check-type operand indirect-operand) + (reduce #'+ operand + :key (lambda (x) + (if (integerp x) x 0)))) + (deftype pc-relative-operand () '(cons (eql :pc+)))

1 0

[movitz-cvs] CVS movitz
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv13388 Modified Files: asm-x86.lisp Log Message: Disengage warning. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/23 22:35:10 1.30 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/25 23:33:43 1.31 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.30 2008/02/23 22:35:10 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.31 2008/02/25 23:33:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -288,11 +288,11 @@ (let ((bit-pos (* 8 (1- (ceiling (integer-length pos) 8))))) (if (not (plusp bit-pos)) (progn - (unless (or (eq nil decoder) - (eq nil (svref table pos)) - (equal decoder (svref table pos))) - (warn "Redefining disassembler for ~@[~(~A~) ~]opcode #x~X from ~{~S ~}to ~{~S~^ ~}." - operator-mode opcode (svref table pos) decoder)) + #+(or) (unless (or (eq nil decoder) + (eq nil (svref table pos)) + (equal decoder (svref table pos))) + (warn "Redefining disassembler for ~@[~(~A~) ~]opcode #x~X from ~{~S ~}to ~{~S~^ ~}." + operator-mode opcode (svref table pos) decoder)) (setf (svref table pos) decoder)) (set-it (or (svref table (ldb (byte 8 bit-pos) pos)) (setf (svref table (ldb (byte 8 bit-pos) pos))

1 0

[movitz-cvs] CVS movitz
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv8791 Modified Files: movitz.asd Log Message: Don't forget movitz-asm. --- /project/movitz/cvsroot/movitz/movitz.asd 2008/02/25 20:11:01 1.1 +++ /project/movitz/cvsroot/movitz/movitz.asd 2008/02/25 23:16:21 1.2 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <ffjeld(a)common-lisp.net> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: movitz.asd,v 1.1 2008/02/25 20:11:01 ffjeld Exp $ +;;;; $Id: movitz.asd,v 1.2 2008/02/25 23:16:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -42,7 +42,7 @@ :description "A compiler, run-time, and libraries for Common Lisp on the x86." :default-component-class movitz-source-file :serial t - :depends-on (binary-types) + :depends-on (binary-types movitz-asm) :components ((:file "packages") (:file "movitz") (:file "parse")

1 0

[movitz-cvs] CVS public_html
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/public_html In directory clnet:/project/movitz/public_html Modified Files: style.css Log Message: fresh copy --- /project/movitz/cvsroot/public_html/style.css 2004/01/13 11:31:55 1.1 +++ /project/movitz/cvsroot/public_html/style.css 2008/02/25 21:47:53 1.2 @@ -1,260 +1,54 @@ -/* Style code taken from oswd.net, this design originally by haran. -/* original header: -/* TITLE: Stylesheet for Purple Haze -/* URI : /purplehaze/purplehaze.css -/* MODIF: 2002-12-15 17:34 +0800 - -/* ###### Color Scheme ###### */ - -/* - * CHANGING THE COLOR SCHEME - * ------------------------- - * - * Four basic colors were used in the design. To change the - * color scheme, just edit these four values below. - * - */ - -.topOfPage, q, h1, h2, h3, .headerTitle, .siteMap, .siteMap *, .headerLinks, .headerLinks *, .sideBox div, #footer * -{ /* Text Color: */ color: /* #a0a0ff; */ #1111ff; } - -q, h2, #header, .sideBox, .sideBox div, #footer -{ /* Border Color: */ border-color: #c0c0ff; } - -#header, .sideBox div, .sideBox a:hover -{ /* Background Color (darker): */ background-color: #f0f0ff; } - - -q, .sideBox a, .sideBox span, #footer - /* Background Color (lighter): */ - { background-color: #fcfcff; } - - - -/* ###### Browser-specific Styles ###### */ - -/* For IE & Mozilla-based browsers: */ - -.LHS { - margin-left: 2.5mm; - float: left; - clear: left; - width: 10em; -} - -.RHS { - margin-right: 2.5mm; - float: right; - clear: right; - width: 14em; - font-size: small; -} - -/* For Mozilla-based (CSS2-fully complaint) browsers only: */ - -[class~="LHS"] { - margin-left: 5mm; -} - -[class~="RHS"] { - margin-right: 5mm; -} - - -/* ###### Body Text ###### */ - -#bodyText { - line-height: 1.5em; - margin: 10mm 14em 0 12em; - padding: 0 1em 1ex 1em; -} - -#bodyTextWide { - line-height: 1.5em; - margin: 10mm 2em 0 12em; - padding: 0 1em 1ex 1em; -} - -#bodyText p { - padding-bottom: 1ex; -} - -#bodyText ul { - padding-bottom: 1ex; -} - -.topOfPage { - font-size: 90%; - font-weight: bold; - font-variant: small-caps; - text-decoration: none; - padding-left: 1ex; - padding-right: 1ex; - float: right; -} - -.smallCaps { - font-variant: small-caps; -} - -body { - background-color: white; - color: black; - font-family: "arial"; /* verdana, tahoma, helvetica, arial, sans-serif;*/ - font-size: 100%; - margin: 0; -} - -h1, h2, h3 { - font-family: "arial"; /* , sans-serif; */ -} - -h1 { - font-weight: bold; - font-size: 150%; - font-family: "arial"; - border-bottom: 1px solid; - padding-bottom: 0.5ex; -} - -h2 { - font-weight: bold; - font-size: 100%; - font-family: "arial"; - padding-bottom: 0.5ex; -} - -acronym { - background-color: inherit; - color: teal; - border-bottom: 1px dashed teal; - cursor: help; -} - -code { - font-family: "lucida console", monospace; - font-size: 90%; -} - -img { - border: 0; -} - -q { - font-family: "arial"; /* , verdana, helvetica, arial, sans-serif; */ - font-weight: bold; - border: 2px dotted; - margin: 0 1em 1ex 1em; - padding: 0.5ex 0.5ex 0.5ex 1ex; - width: 9em; - float: left; -} - - -/* ###### Header ###### */ - -#header { - border-bottom: 2px solid; - height: 5em; - margin-bottom: 5mm; - padding: 2em 2.5mm 0 5mm; -} - -.headerTitle { - font-size: 300%; -} - -.headerLinks { - text-align: right; - margin-right: 2.5mm; - float: right; - clear: right; -} - -.headerLinks * { - text-decoration: none; - font-weight: bold; - padding-right: 1ex; -} - -.headerLinks a:hover { - text-decoration: underline; -} - -.siteMap { - font-size: small; - text-align: left; - margin-left: 2.5mm; - margin-right: 2.5mm; - float: left; - clear: left; -} - -.siteMap * { - text-decoration: none; -/* font-weight: bold; */ - padding-right: 1ex; -} - -.siteMap a:hover { - text-decoration: underline; -} - - -/* ###### Side Box ###### */ - -.sideBox { - border-top: 2px solid; - border-bottom: 2px solid; - margin-top: 5mm; -} - -.sideBox div { - font-weight: bold; - border-bottom: 1px dashed; - padding: 0.5ex 0.5em 0.5ex 0.75em; -} - -.sideBox a, .sideBox a:hover, .sideBox span { - color: black; - text-decoration: none; - line-height: 1.25em; - display: block; - padding: 1ex 0.5em 1ex 0.75em; -} - - -/* ###### Footer ###### */ - -#footer { - color: inherit; - border-top: 2px solid; - border-bottom: 2px solid; - padding-top: 0.75ex; - padding-bottom: 0.75ex; - clear: left; -} - -.footerImg { - padding-right: 3mm; - padding-top: 2mm; - float: none; -} - -#footer div { - padding-left: 3mm; -} - -#footer * { - background-color: inherit; - font-size: 92%; -} - -#footer a:hover { - text-decoration: none; -} - -.footerCol2 { - left: 7em; -} +.header { + font-size: medium; + background-color:#336699; + color:#ffffff; + border-style:solid; + border-width: 5px; + border-color:#002244; + padding: 1mm 1mm 1mm 5mm; +} + +.footer { + font-size: small; + font-style: italic; + text-align: right; + background-color:#336699; + color:#ffffff; + border-style:solid; + border-width: 2px; + border-color:#002244; + padding: 1mm 1mm 1mm 1mm; +} + +.footer a:link { + font-weight:bold; + color:#ffffff; + text-decoration:underline; +} + +.footer a:visited { + font-weight:bold; + color:#ffffff; + text-decoration:underline; +} + +.footer a:hover { + font-weight:bold; + color:#002244; + text-decoration:underline; } + +.check {font-size: x-small; + text-align:right;} + +.check a:link { font-weight:bold; + color:#a0a0ff; + text-decoration:underline; } + +.check a:visited { font-weight:bold; + color:#a0a0ff; + text-decoration:underline; } + +.check a:hover { font-weight:bold; + color:#000000; + text-decoration:underline; }

1 0

[movitz-cvs] CVS public_html
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/public_html In directory clnet:/tmp/cvs-serv15409 Modified Files: index.html Log Message: No more ia-x86. --- /project/movitz/cvsroot/public_html/index.html 2008/02/25 20:19:48 1.32 +++ /project/movitz/cvsroot/public_html/index.html 2008/02/25 21:32:13 1.33 @@ -76,19 +76,18 @@ tree via anonymous cvs, as described <a href="http://www.common-lisp.net/faq.shtml">here</a> - There are currently three modules in the repository: + There are two modules in use in the repository: <ul> - <li><tt>ia-x86</tt></li> <li><tt>binary-types</tt></li> <li><tt>movitz</tt></li> </ul> - The former two are required for building and using the - latter. So far, this combo has been run under Allegro, SBCL, and - CMUCL, but everything is supposed to be platform-independent ANSI - Common Lisp. CLisp apparently dumps core for some reason during the - build process. + Binary-types is a library that is required for building and + using Movitz. So far, this combo has been run under Allegro, SBCL, + and CMUCL, but everything is supposed to be platform-independent + ANSI Common Lisp. CLisp apparently dumps core for some reason during + the build process. The main build process is run by two operators. Create-image creates a symbolic Movitz lisp-world from scratch. This symbolic

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs