movitz-cvs February 2004

movitz-cvs@common-lisp.net

1 participants
166 discussions

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

02 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv3520 Modified Files: special-operators.lisp Log Message: Altered a call to movitz-macro-expander-make-function in accordance with new naming scheme. Date: Mon Feb 2 09:54:29 2004 Author: ffjeld Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.3 movitz/special-operators.lisp:1.4 --- movitz/special-operators.lisp:1.3 Fri Jan 16 14:25:04 2004 +++ movitz/special-operators.lisp Mon Feb 2 09:54:29 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.3 2004/01/16 19:25:04 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.4 2004/02/02 14:54:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -442,7 +442,7 @@ (translate-program ,expansion-var :cl :muerte.cl))))))) (setf (movitz-compiler-macro-function operator-name nil) (movitz-macro-expander-make-function expander - :name (gensym (format nil "~A-compiler-macro-" name)) + :name name :type :compiler-macro)))))))) (compiler-values ()))

1 0

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

02 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv929 Modified Files: compiler.lisp Log Message: Rearranged movitz-macro-expander-make-function slightly, so it will generate gensym names (for compile) based on name and type. Date: Mon Feb 2 09:53:38 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.6 movitz/compiler.lisp:1.7 --- movitz/compiler.lisp:1.6 Mon Feb 2 08:05:25 2004 +++ movitz/compiler.lisp Mon Feb 2 09:53:38 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.6 2004/02/02 13:05:25 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.7 2004/02/02 14:53:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -132,14 +132,11 @@ (write (movitz-funobj-name object) :stream stream))) object) -(defun movitz-macro-expander-make-function (lambda-form - &key (name (gensym "macro-expander-")) - (type :unknown)) +(defun movitz-macro-expander-make-function (lambda-form &key name (type :unknown)) "Make a lambda-form that is a macro-expander into a proper function." - (declare (ignore type)) - (check-type name symbol) (if *compiler-compile-macro-expanders* - (compile name lambda-form) + (compile (gensym (format nil "~A-expander-~@[~A-~]" type name)) + lambda-form) (coerce lambda-form 'function))) (defun make-compiled-funobj (&rest args)

1 0

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

02 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv29601 Modified Files: special-operators-cl.lisp Log Message: Have macrolet do the right thing with declarations and docstrings in expanders and bodies. Removes many host-compiler-warnings. Date: Mon Feb 2 09:52:24 2004 Author: ffjeld Index: movitz/special-operators-cl.lisp diff -u movitz/special-operators-cl.lisp:1.3 movitz/special-operators-cl.lisp:1.4 --- movitz/special-operators-cl.lisp:1.3 Mon Jan 19 06:23:41 2004 +++ movitz/special-operators-cl.lisp Mon Feb 2 09:52:24 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.3 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: special-operators-cl.lisp,v 1.4 2004/02/02 14:52:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -264,25 +264,30 @@ (destructuring-bind (macrolet-specs &body declarations-and-body) (cdr form) (multiple-value-bind (body declarations) - declarations-and-body + (parse-declarations-and-body declarations-and-body) (let ((local-env (make-local-movitz-environment env funobj - :type 'operator-env - :declarations declarations))) - (loop for (name local-lambda-list . local-body) in macrolet-specs + :type 'operator-env + :declarations declarations))) + (loop for (name local-lambda-list . local-body-decl-doc) in macrolet-specs as cl-local-lambda-list = (translate-program local-lambda-list :muerte.cl :cl) + as (local-body local-declarations) = + (multiple-value-list (parse-docstring-declarations-and-body local-body-decl-doc)) as cl-local-body = (translate-program local-body :muerte.cl :cl) + as cl-local-declarations = (translate-program local-declarations :muerte.cl :cl) as expander = `(lambda (form env) (declare (ignorable env)) (destructuring-bind ,cl-local-lambda-list (translate-program (rest form) :muerte.cl :cl) + (declare ,@cl-local-declarations) (translate-program (block ,name (let () ,@cl-local-body)) :cl :muerte.cl))) - do (movitz-env-add-binding local-env - (make-instance 'macro-binding - :name name - :expander (movitz-macro-expander-make-function expander - :name name - :type :macrolet)))) + do (movitz-env-add-binding + local-env + (make-instance 'macro-binding + :name name + :expander (movitz-macro-expander-make-function expander + :name name + :type :macrolet)))) (compiler-values-bind (&all body-values &code body-code) (compiler-call #'compile-implicit-progn :defaults forward

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/dp8390.lisp
by Frode Vatvedt Fjeld 02 Feb '04

02 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv32035 Modified Files: dp8390.lisp Log Message: Fixed with-dp8390-dma macro not to emit compiler warnings. Date: Mon Feb 2 09:03:13 2004 Author: ffjeld Index: movitz/losp/x86-pc/dp8390.lisp diff -u movitz/losp/x86-pc/dp8390.lisp:1.4 movitz/losp/x86-pc/dp8390.lisp:1.5 --- movitz/losp/x86-pc/dp8390.lisp:1.4 Mon Feb 2 08:41:52 2004 +++ movitz/losp/x86-pc/dp8390.lisp Mon Feb 2 09:03:13 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Sep 18 12:21:36 2002 ;;;; -;;;; $Id: dp8390.lisp,v 1.4 2004/02/02 13:41:52 ffjeld Exp $ +;;;; $Id: dp8390.lisp,v 1.5 2004/02/02 14:03:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -128,7 +128,7 @@ ;; Must be located inside with-dp8390. `(multiple-value-prog1 (macrolet ((dp8390-abort-dma () - `(setf (,dp8390-var ($page0-write cr)) ($command abort-complete)))) + `(setf (,',dp8390-var ($page0-write cr)) ($command abort-complete)))) (initialize-dma ,dp8390-var ($command ,rdma-command) ,size ,address) ,@body) (wait-for-dma-completion ,dp8390-var ',rdma-command)))

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/dp8390.lisp
by Frode Vatvedt Fjeld 02 Feb '04

02 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv15284 Modified Files: dp8390.lisp Log Message: Added some information to dp8390 DMA protocol. Date: Mon Feb 2 08:41:53 2004 Author: ffjeld Index: movitz/losp/x86-pc/dp8390.lisp diff -u movitz/losp/x86-pc/dp8390.lisp:1.3 movitz/losp/x86-pc/dp8390.lisp:1.4 --- movitz/losp/x86-pc/dp8390.lisp:1.3 Mon Jan 19 06:23:52 2004 +++ movitz/losp/x86-pc/dp8390.lisp Mon Feb 2 08:41:52 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Sep 18 12:21:36 2002 ;;;; -;;;; $Id: dp8390.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ +;;;; $Id: dp8390.lisp,v 1.4 2004/02/02 13:41:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -102,15 +102,15 @@ `((with-io-register-syntax (,var ,io-base-form) ,@body))))) -(defun wait-for-dma-completion (io-base) +(defun wait-for-dma-completion (io-base &optional command) (with-dp8390 (dp8390 io-base) (setf (dp8390 ($page0-write cr)) ($command page-0 abort-complete)) (if (logbitp ($interrupt-status dma-complete) (dp8390 ($page0-read isr))) (setf (dp8390 ($page0-write isr)) (ash 1 ($interrupt-status dma-complete))) - (error "Incomplete dp8390 @ #x~X DMA: crda=#x~X." - io-base + (error "Incomplete dp8390~@[ ~A~] @ #x~X DMA: crda=#x~X." + command io-base (io-register8x2 dp8390 ($page0-read crda1) ($page0-read crda0))))) nil) @@ -131,7 +131,7 @@ `(setf (,dp8390-var ($page0-write cr)) ($command abort-complete)))) (initialize-dma ,dp8390-var ($command ,rdma-command) ,size ,address) ,@body) - (wait-for-dma-completion ,dp8390-var))) + (wait-for-dma-completion ,dp8390-var ',rdma-command))) ;;; Utility functions

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/basic-macros.lisp
by Frode Vatvedt Fjeld 02 Feb '04

02 Feb '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv7693 Modified Files: basic-macros.lisp Log Message: Made defconstant proclaim the variable-name special (on the host-side), avoiding compiler warnings when macro-expanders use it. Date: Mon Feb 2 08:40:37 2004 Author: ffjeld Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.2 movitz/losp/muerte/basic-macros.lisp:1.3 --- movitz/losp/muerte/basic-macros.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/basic-macros.lisp Mon Feb 2 08:40:36 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: basic-macros.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.3 2004/02/02 13:40:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -464,6 +464,7 @@ ',name (movitz::movitz-eval ',name) movitz-value)) + (proclaim `(special ,movitz-name)) (setf (movitz::movitz-symbol-value movitz-symbol) (movitz::movitz-read movitz-value) (symbol-value movitz-name) movitz-value))) (declaim (muerte::constant-variable ,name))))

1 0

[movitz-cvs] CVS update: movitz/movitz-mode.el
by Frode Vatvedt Fjeld 02 Feb '04

02 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv12447 Modified Files: movitz-mode.el Log Message: Various naming updates. Date: Mon Feb 2 08:31:23 2004 Author: ffjeld Index: movitz/movitz-mode.el diff -u movitz/movitz-mode.el:1.2 movitz/movitz-mode.el:1.3 --- movitz/movitz-mode.el:1.2 Thu Jan 15 12:37:11 2004 +++ movitz/movitz-mode.el Mon Feb 2 08:31:23 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Sep 27 18:12:17 2001 ;;;; -;;;; $Id: movitz-mode.el,v 1.2 2004/01/15 17:37:11 ffjeld Exp $ +;;;; $Id: movitz-mode.el,v 1.3 2004/02/02 13:31:23 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -108,7 +108,7 @@ (fi:eval-in-lisp "movitz::*bootblock-build*") display-shortcut) (call-process "/bin/sh" nil 0 nil "-c" - (format "DISPLAY=\"%s\" ~/tmp/bochs-cvs/bochs -nocp > bochs-parameters" + (format "DISPLAY=\"%s\" cd ~/clnet/movitz && ~/tmp/bochs-cvs/bochs -nocp > bochs-parameters" display-shortcut)))) (defun movitz-compile-file () @@ -220,7 +220,7 @@ (cl:char= #\\& (cl:char (cl:string x) 0)))) lambda-list))) (specializers (cl:mapcar #'muerte::find-specializer - (cl:mapcar (cl:lambda (x) (cl:if (cl:consp x) (cl:second x) 'los0.cl:t)) + (cl:mapcar (cl:lambda (x) (cl:if (cl:consp x) (cl:second x) 'muerte.cl:t)) specializing-lambda-list))) (method (muerte::movitz-find-method gf qualifiers specializers)) (funobj (muerte::movitz-slot-value method 'muerte::function)) @@ -258,7 +258,7 @@ (cl:let ((cl:*package* (cl:find-package :%s))) (cl:with-open-file (stream \"%s\" :direction :input) (cl:read stream)))) - :common-lisp :los0.common-lisp))))" + :common-lisp :muerte.common-lisp))))" fi:package fi:package tmp-file))

1 0

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

02 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv12267 Modified Files: image.lisp Log Message: Improved, hopefully, interaction between image-read-intern-constant and movitz-read. Date: Mon Feb 2 08:27:26 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.4 movitz/image.lisp:1.5 --- movitz/image.lisp:1.4 Mon Feb 2 08:04:49 2004 +++ movitz/image.lisp Mon Feb 2 08:27:26 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.4 2004/02/02 13:04:49 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.5 2004/02/02 13:27:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1238,19 +1238,11 @@ (string (or (gethash expr (image-string-constants *image*)) (setf (gethash expr (image-string-constants *image*)) - (make-movitz-string expr)))) + (movitz-read expr)))) (cons (or (gethash expr (image-cons-constants *image*)) (setf (gethash expr (image-cons-constants *image*)) - (if (eq '#0=#:error (ignore-errors (when (not (list-length expr)) '#0#))) - (multiple-value-bind (unfolded-expr cdr-index) - (unfold-circular-list expr) - (let ((result (movitz-read unfolded-expr))) - (setf (movitz-last-cdr result) - (movitz-nthcdr cdr-index result)) - result)) - (make-movitz-cons (movitz-read (car expr)) - (movitz-read (cdr expr))))))) + (movitz-read expr)))) (t (movitz-read expr)))) ;;; "Reader" @@ -1291,22 +1283,25 @@ (null *movitz-nil*) ((member t) (movitz-read 'muerte.cl:t)) (symbol (intern-movitz-symbol expr)) - (string (image-read-intern-constant *image* expr)) (integer (make-movitz-fixnum expr)) (character (make-movitz-character expr)) + (string (or (gethash expr (image-string-constants *image*)) + (setf (gethash expr (image-string-constants *image*)) + (make-movitz-string expr)))) (vector (make-movitz-vector (length expr) :initial-contents (map 'vector #'movitz-read expr))) (cons - (image-read-intern-constant *image* expr) - #+ignore (if (eq '#0=#:error (ignore-errors (when (not (list-length expr)) '#0#))) - (multiple-value-bind (unfolded-expr cdr-index) - (unfold-circular-list expr) - (let ((result (movitz-read unfolded-expr))) - (setf (movitz-last-cdr result) - (movitz-nthcdr cdr-index result)) - result)) - (make-movitz-cons (movitz-read (car expr)) - (movitz-read (cdr expr))))) + (or (gethash expr (image-cons-constants *image*)) + (setf (gethash expr (image-cons-constants *image*)) + (if (eq '#0=#:error (ignore-errors (when (not (list-length expr)) '#0#))) + (multiple-value-bind (unfolded-expr cdr-index) + (unfold-circular-list expr) + (let ((result (movitz-read unfolded-expr))) + (setf (movitz-last-cdr result) + (movitz-nthcdr cdr-index result)) + result)) + (make-movitz-cons (movitz-read (car expr)) + (movitz-read (cdr expr))))))) (hash-table (make-movitz-hash-table expr)) (structure-object

1 0

[movitz-cvs] CVS update: movitz/storage-types.lisp
by Frode Vatvedt Fjeld 02 Feb '04

02 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv5811 Modified Files: storage-types.lisp Log Message: Changed printing of Movitz vectors. Date: Mon Feb 2 08:09:26 2004 Author: ffjeld Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.2 movitz/storage-types.lisp:1.3 --- movitz/storage-types.lisp:1.2 Mon Jan 19 06:23:41 2004 +++ movitz/storage-types.lisp Mon Feb 2 08:09:26 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: storage-types.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.3 2004/02/02 13:09:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -449,14 +449,15 @@ 8))) (defmethod print-object ((obj movitz-vector) stream) - (case (movitz-vector-element-type obj) - (:character - (format stream "#&~S" (map 'string #'identity + (print-unreadable-movitz-object (obj stream :type nil :identity t) + (case (movitz-vector-element-type obj) + (:character + (format stream "~S" (map 'string #'identity (movitz-vector-symbolic-data obj)))) - (t (format stream "#&[[ET:~A,NE:~A]~A]" - (movitz-vector-element-type obj) - (movitz-vector-num-elements obj) - (movitz-vector-symbolic-data obj)))) + (t (format stream "[ET:~A,NE:~A] ~A" + (movitz-vector-element-type obj) + (movitz-vector-num-elements obj) + (movitz-vector-symbolic-data obj))))) obj) (defmethod movitz-storage-alignment ((obj movitz-vector))

1 0

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

02 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv18305 Modified Files: packages.lisp Log Message: Added print-unreadable-movitz-object to movitz package. Date: Mon Feb 2 08:06:40 2004 Author: ffjeld Index: movitz/packages.lisp diff -u movitz/packages.lisp:1.1.1.1 movitz/packages.lisp:1.2 --- movitz/packages.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/packages.lisp Mon Feb 2 08:06:39 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.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.2 2004/02/02 13:06:39 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1100,6 +1100,7 @@ simple-read-from-string print-word fixnump below + print-unreadable-movitz-object stack-ref with-each-dynamic-context @@ -1208,6 +1209,8 @@ #:io-delay #:io-port-read-sequence #:io-port-write-sequence + #:%io-port-read-succession + #:%io-port-write-succession #:with-io-register-syntax #:with-register-syntax #:cpu-id

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 February 2004