movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS update: movitz/special-operators.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv8243 Modified Files: special-operators.lisp Log Message: Minor edits and removed warnings. Date: Tue Feb 10 13:06:44 2004 Author: ffjeld Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.7 movitz/special-operators.lisp:1.8 --- movitz/special-operators.lisp:1.7 Sun Feb 8 18:27:56 2004 +++ movitz/special-operators.lisp Tue Feb 10 13:06:44 2004 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.7 2004/02/08 23:27:56 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.8 2004/02/10 18:06:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -593,9 +593,7 @@ (cdr form) (assert (not argument)) (compiler-values () - :code `(,@(when argument - `((:load-lexical ,argument :eax))) - (:call (:edi ,(slot-offset 'movitz-constant-block if-name)))) + :code `((:call (:edi ,(slot-offset 'movitz-constant-block if-name)))) :returns :nothing))) (define-special-operator inlined-not (&all forward &form form &result-mode result-mode) @@ -979,6 +977,7 @@ (let ((term2-type (type-specifier-primary term2-type))) ;;; (warn "t2-type: ~S, t2-ret: ~S, rm: ~S" ;;; term2-type term2-returns result-mode) + (declare (ignore term2-type)) (case term2-returns (:untagged-fixnum-eax (case result-mode @@ -1063,8 +1062,9 @@ (:into)))))))) (define-special-operator muerte::include (&form form) - (let ((*require-dependency-chain* (and (boundp '*require-dependency-chain*) - *require-dependency-chain*))) + (let ((*require-dependency-chain* + (and (boundp '*require-dependency-chain*) + (symbol-value '*require-dependency-chain*)))) (declare (special *require-dependency-chain*)) (destructuring-bind (module-name &optional path-spec) (cdr form) @@ -1142,6 +1142,7 @@ (make-compiled-argument-forms sub-forms (all :funobj) (all :env)) (multiple-value-bind (stack-restore-code new-returns) (make-compiled-stack-restore stack-displacement result-mode :multiple-values) + (declare (ignore stack-restore-code)) (compiler-values () :returns new-returns :type `(values ,@arguments-types)

1 0

[movitz-cvs] CVS update: movitz/special-operators-cl.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv7104 Modified Files: special-operators-cl.lisp Log Message: Minor edits and removed warnings. Date: Tue Feb 10 13:06:38 2004 Author: ffjeld Index: movitz/special-operators-cl.lisp diff -u movitz/special-operators-cl.lisp:1.6 movitz/special-operators-cl.lisp:1.7 --- movitz/special-operators-cl.lisp:1.6 Wed Feb 4 10:25:23 2004 +++ movitz/special-operators-cl.lisp Tue Feb 10 13:06:38 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 24 16:31:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: special-operators-cl.lisp,v 1.6 2004/02/04 15:25:23 ffjeld Exp $ +;;;; $Id: special-operators-cl.lisp,v 1.7 2004/02/10 18:06:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -148,9 +148,7 @@ appending (cond ((binding-lended-p binding) - (error "Huh?") ; remove this clause.. - (append init-code - `((:initialize-lended-lexical ,binding :eax)))) + (error "Huh?")) ; remove this clause.. ;; #+ignore ((and (typep binding 'located-binding) (not (binding-lended-p binding)) @@ -757,8 +755,9 @@ ,result-form))))))) (define-special-operator require (&form form) - (let ((*require-dependency-chain* (and (boundp '*require-dependency-chain*) - *require-dependency-chain*))) + (let ((*require-dependency-chain* + (and (boundp '*require-dependency-chain*) + (symbol-value '*require-dependency-chain*)))) (declare (special *require-dependency-chain*)) (destructuring-bind (module-name &optional path-spec) (cdr form)

1 0

[movitz-cvs] CVS update: movitz/packages.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv6753 Modified Files: packages.lisp Log Message: Minor edits and removed warnings. Date: Tue Feb 10 13:06:30 2004 Author: ffjeld Index: movitz/packages.lisp diff -u movitz/packages.lisp:1.4 movitz/packages.lisp:1.5 --- movitz/packages.lisp:1.4 Mon Feb 9 18:42:18 2004 +++ movitz/packages.lisp Tue Feb 10 13:06:30 2004 @@ -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.4 2004/02/09 23:42:18 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.5 2004/02/10 18:06:30 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1237,57 +1237,60 @@ (defpackage #:movitz (:use :common-lisp :binary-types) - (:export parse-docstring-and-declarations - global-constant-offset - tag tag-name - movitz-print - stream-image - with-procfs-image - *image* *i* - *default-image-file* - *default-image-init-file* - movitz-constantp - movitz-eval + (:export #:create-image + #:dump-image - movitz-compile-file + #:parse-docstring-and-declarations + #:global-constant-offset + #:tag #:tag-name + #:movitz-print + #:stream-image + #:with-procfs-image + #:*image* #:*i* + #:*default-image-file* + #:*default-image-init-file* + #:movitz-constantp + #:movitz-eval + + #:movitz-compile-file - movitz-std-instance - movitz-struct - type - movitz-funobj - funobj-type - code-vector - code-vector%1op - code-vector%2op - code-vector%3op + #:movitz-std-instance + #:movitz-struct + #:type + #:movitz-funobj + #:funobj-type + #:code-vector + #:code-vector%1op + #:code-vector%2op + #:code-vector%3op - +movitz-fixnum-factor+ - +movitz-fixnum-shift+ - constant0 + #:+movitz-fixnum-factor+ + #:+movitz-fixnum-shift+ + #:constant0 - movitz-object-browser-properties - movitz-heap-object + #:movitz-object-browser-properties + #:movitz-heap-object - movitz-vector - movitz-vector-num-elements - movitz-vector-element-type - movitz-vector-symbolic-data + #:movitz-vector + #:movitz-vector-num-elements + #:movitz-vector-element-type + #:movitz-vector-symbolic-data - movitz-symbol - movitz-string + #:movitz-symbol + #:movitz-string - movitz-character - movitz-char + #:movitz-character + #:movitz-char - movitz-struct - movitz-struct-length - movitz-struct-slot-values + #:movitz-struct + #:movitz-struct-length + #:movitz-struct-slot-values - movitz-intern - movitz-read - movitz-read-and-intern - movitz-word - word + #:movitz-intern + #:movitz-read + #:movitz-read-and-intern + #:movitz-word + #:word #:*warn-function-change-p* #:*compiler-do-optimize*

1 0

[movitz-cvs] CVS update: movitz/load.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv5249 Modified Files: load.lisp Log Message: Minor edits and removed warnings. Date: Tue Feb 10 13:06:22 2004 Author: ffjeld Index: movitz/load.lisp diff -u movitz/load.lisp:1.7 movitz/load.lisp:1.8 --- movitz/load.lisp:1.7 Mon Jan 19 14:21:14 2004 +++ movitz/load.lisp Tue Feb 10 13:06:22 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: load.lisp,v 1.7 2004/01/19 19:21:14 ffjeld Exp $ +;;;; $Id: load.lisp,v 1.8 2004/02/10 18:06:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -85,3 +85,6 @@ "compiler" "special-operators" "special-operators-cl")))))) + +#+cmu18 (setf movitz:*compiler-compile-eval-whens* nil + movitz:*compiler-compile-macro-expanders* nil) \ No newline at end of file

1 0

[movitz-cvs] CVS update: movitz/image.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv3872 Modified Files: image.lisp Log Message: Minor edits and removed warnings. Date: Tue Feb 10 13:06:13 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.12 movitz/image.lisp:1.13 --- movitz/image.lisp:1.12 Mon Feb 9 19:32:08 2004 +++ movitz/image.lisp Tue Feb 10 13:06:13 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.12 2004/02/10 00:32:08 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.13 2004/02/10 18:06:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1263,9 +1263,10 @@ (defmacro with-movitz-read-context (options &body body) (declare (ignore options)) - `(let ((*movitz-reader-clean-map* (if (boundp '*movitz-reader-clean-map*) - *movitz-reader-clean-map* - (make-hash-table :test #'eq)))) + `(let ((*movitz-reader-clean-map* + (if (boundp '*movitz-reader-clean-map*) + (symbol-value '*movitz-reader-clean-map*) + (make-hash-table :test #'eq)))) (declare (special *movitz-reader-clean-map*)) ,@body)) @@ -1402,6 +1403,7 @@ (error "Unknown Movitz object: ~S" expr))))) (defmethod make-toplevel-funobj ((*image* symbolic-image)) + (declare (special *image*)) (let ((toplevel-code (loop for (funobj) in (image-load-time-funobjs *image*) collect `(muerte::simple-funcall ,funobj)))) (make-compiled-funobj 'muerte::toplevel-function ()

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv32642 Modified Files: compiler.lisp Log Message: Minor edits and removed warnings. Date: Tue Feb 10 13:05:54 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.20 movitz/compiler.lisp:1.21 --- movitz/compiler.lisp:1.20 Mon Feb 9 19:28:34 2004 +++ movitz/compiler.lisp Tue Feb 10 13:05:54 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.20 2004/02/10 00:28:34 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.21 2004/02/10 18:05:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1070,10 +1070,11 @@ (delete-file path)))) (values)) -(defun movitz-compile-file-internal (path &optional (*default-load-priority* - (and (boundp '*default-load-priority*) - *default-load-priority* - (1+ *default-load-priority*)))) +(defun movitz-compile-file-internal (path + &optional (*default-load-priority* + (and (boundp '*default-load-priority*) + (symbol-value '*default-load-priority*) + (1+ (symbol-value '*default-load-priority*))))) (declare (special *default-load-priority*)) (with-retries-until-true (retry "Restart Movitz compilation of ~S." path) (let* ((muerte.cl::*compile-file-pathname* path) @@ -1642,7 +1643,6 @@ unoptimized-code (append (nreverse new-code) old-code))))))) - (declare (ignorable load-funobj-constant-p isrc)) (let* ((unoptimized-code (frame-map-code (optimize-stack-frame-init unoptimized-code))) (code-modified-p nil) (stack-frame-used-map (loop with map = nil @@ -1767,10 +1767,10 @@ (not (assoc (load-stack-frame-p i3) (second i2)))) (let ((reg (cdr (assoc (load-stack-frame-p i3) (third i2))))) (explain nil "factor out load from loop: ~S" i3) + (assert (eq reg (twop-dst i3))) (setq p (if (eq reg (twop-dst i3)) (list i3 i i2) - (append (error "weewf") - (list i3 i i2) + (append (list i3 i i2) `((:movl ,reg ,(twop-dst i3))))) next-pc (cdddr pc)))) ;; ((:jmp x) ...(no labels).... x ..) @@ -3668,8 +3668,8 @@ (when (= 0 (function-argument-argnum binding)) `((:popl :ebx))) `((:popl :ecx))) - (progn (error "WEgewgew") - `((:store-lexical ,binding :edi :type null)))) + (progn (error "Unsupported situation.") + #+ignore `((:store-lexical ,binding :edi :type null)))) ,@(when (and (= 0 (function-argument-argnum binding)) (not last-optional-p)) `((:popl :ebx))) ; protect ebx

1 0

[movitz-cvs] CVS update: public_html/index.html
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv8732 Modified Files: index.html Log Message: html tinkering Date: Tue Feb 10 06:42:30 2004 Author: ffjeld Index: public_html/index.html diff -u public_html/index.html:1.12 public_html/index.html:1.13 --- public_html/index.html:1.12 Tue Feb 10 06:39:31 2004 +++ public_html/index.html Tue Feb 10 06:42:30 2004 @@ -71,9 +71,11 @@ The main build process is run by two operators. Create-image creates a symbolic Movitz lisp-world from scratch. This symbolic - representation is loaded into the variable <pre>*image*</pre>, which + representation is loaded into the variable <tt>*image*</tt>, which holds "the current image" for many Movitz operators. The function - dump-image transforms a symbolic image to a bootable image file. + dump-image transforms a symbolic image to a bootable image file. </p> + + <p> <div class="footer"> <a href="ffjeld (at) common-lisp (dot) net">Frode V. Fjeld</a>

1 0

[movitz-cvs] CVS update: public_html/index.html
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv30112 Modified Files: index.html Log Message: Updated/added some general info about Movitz building. Date: Tue Feb 10 06:39:31 2004 Author: ffjeld Index: public_html/index.html diff -u public_html/index.html:1.11 public_html/index.html:1.12 --- public_html/index.html:1.11 Wed Jan 14 11:48:01 2004 +++ public_html/index.html Tue Feb 10 06:39:31 2004 @@ -16,12 +16,12 @@ <h3>Introduction</h3> <p> The Movitz system aspires to be an implementation of ANSI Common -Lisp that targets the ubiquitous x86 PC architecture "on the -metal". That is, running without any operating system or other form of -software environment. Movitz is a development platform for operating -system kernels, embedded, and single-purpose applications. There can -potentially be several completely different operating systems built -using Movitz. </p> + Lisp that targets the ubiquitous x86 PC architecture "on the + metal". That is, running without any operating system or other form + of software environment. Movitz is a development platform for + operating system kernels, embedded, and single-purpose + applications. There can potentially be several completely different + operating systems built using Movitz. </p> <p> <a href="movitz.html">More information about Movitz concepts.</a> @@ -63,17 +63,21 @@ <li><tt>movitz</tt></li> </ul> - <p> The former two are required for building and using the latter. - Also, both ia-x86 and binary-types have been somewhat tested for - portability, whereas Movitz itself has only ever been used with - Allegro CL. I'm hoping that someone with experience with other lisp - implementations than Allegro can make movitz runnable under their - system, and submit patches to that effect to - movitz-devel(a)common-lisp.net. - + <p> 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. </p> + + The main build process is run by two operators. Create-image creates + a symbolic Movitz lisp-world from scratch. This symbolic + representation is loaded into the variable <pre>*image*</pre>, which + holds "the current image" for many Movitz operators. The function + dump-image transforms a symbolic image to a bootable image file. <div class="footer"> <a href="ffjeld (at) common-lisp (dot) net">Frode V. Fjeld</a> + Feb. 10, 2004. </div> </body>

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv11612 Modified Files: los-closette-compiler.lisp Log Message: Avoid warning about undeclared variable *the-standard-method-combination*. Date: Mon Feb 9 20:03:41 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.9 movitz/losp/muerte/los-closette-compiler.lisp:1.10 --- movitz/losp/muerte/los-closette-compiler.lisp:1.9 Mon Feb 9 19:43:43 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 20:03:41 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.9 2004/02/10 00:43:43 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.10 2004/02/10 01:03:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1111,7 +1111,7 @@ (generic-function-lambda-list gf) lambda-list (generic-function-methods gf) () (generic-function-method-class gf) method-class - (generic-function-method-combination gf) *the-standard-method-combination*) + (generic-function-method-combination gf) (symbol-value '*the-standard-method-combination*)) (finalize-generic-function gf) gf))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/los-closette-compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv3770 Modified Files: los-closette-compiler.lisp Log Message: Added place-holder defun finalize-inheritance. Date: Mon Feb 9 19:43:43 2004 Author: ffjeld Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.8 movitz/losp/muerte/los-closette-compiler.lisp:1.9 --- movitz/losp/muerte/los-closette-compiler.lisp:1.8 Mon Feb 9 19:42:37 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Feb 9 19:43:43 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 29 13:15:11 2002 ;;;; -;;;; $Id: los-closette-compiler.lisp,v 1.8 2004/02/10 00:42:37 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.9 2004/02/10 00:43:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -732,6 +732,10 @@ #'compute-slots) class)) (values)) + + (defun finalize-inheritance (class) + (error "Don't know how to finalize-inheritance for class ~S of class ~S." + class (class-of class))) ;;; Class precedence lists

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