- movitz-cvs@lists.common-lisp.net - mailman3.common-lisp.net

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 10 Apr '06

10 Apr '06

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv4874 Modified Files: arithmetic-macros.lisp Log Message: No need to give cl package prefix inside #.(..) anymore. --- /project/movitz/cvsroot/movitz/losp/muerte/arithmetic-macros.lisp 2005/09/18 16:20:04 1.15 +++ /project/movitz/cvsroot/movitz/losp/muerte/arithmetic-macros.lisp 2006/04/10 11:50:34 1.16 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Jul 17 13:42:46 2004 ;;;; -;;;; $Id: arithmetic-macros.lisp,v 1.15 2005/09/18 16:20:04 ffjeld Exp $ +;;;; $Id: arithmetic-macros.lisp,v 1.16 2006/04/10 11:50:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -216,7 +216,7 @@ ,@(loop repeat count append `((:addl (:result-register) (:result-register)) (:into))))) - ((< 0 count #.(cl:1- movitz::+movitz-fixnum-bits+)) + ((< 0 count #.(1- movitz::+movitz-fixnum-bits+)) `(with-inline-assembly (:returns :register :side-effects nil :type integer) ,@load-integer (:cmpl ,(ash 1 (- (- 31 0) count))

1 0

[movitz-cvs] CVS movitz
by ffjeld 10 Apr '06

10 Apr '06

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv4760 Modified Files: compiler.lisp Log Message: minor tweaks. --- /project/movitz/cvsroot/movitz/compiler.lisp 2005/10/31 09:22:54 1.166 +++ /project/movitz/cvsroot/movitz/compiler.lisp 2006/04/10 11:49:41 1.167 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.166 2005/10/31 09:22:54 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.167 2006/04/10 11:49:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1400,8 +1400,7 @@ (pathname-directory path)) (path) "Refusing to delete file not in /tmp.") - (delete-file path)))) - (values)) + (delete-file path))))) (defun movitz-compile-file-internal (path &optional (*default-load-priority* @@ -1440,9 +1439,9 @@ (when *compiler-verbose-p* (format *query-io* "~&Movitz Compiling ~S..~%" (cond - ((symbolp form) form) - ((symbolp (car form)) - (xsubseq form 0 2))))) + ((symbolp form) form) + ((symbolp (car form)) + (xsubseq form 0 2))))) (compiler-call #'compile-form :form form :funobj funobj @@ -1452,13 +1451,16 @@ (cond ((null file-code) (setf (image-load-time-funobjs *image*) - (delete funobj (image-load-time-funobjs *image*) :key #'first))) + (delete funobj (image-load-time-funobjs *image*) :key #'first)) + 'muerte::constantly-true) (t (setf (extended-code function-env) file-code (need-normalized-ecx-p function-env) nil (function-envs funobj) (list (cons 'muerte.cl::t function-env)) (funobj-env funobj) funobj-env) - (make-compiled-funobj-pass2 funobj))) - t)))) + (make-compiled-funobj-pass2 funobj) + (let ((name (funobj-name funobj))) + (setf (movitz-env-named-function name) funobj) + name))))))) ;;;;

1 0

[movitz-cvs] CVS movitz
by ffjeld 10 Apr '06

10 Apr '06

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv4724 Modified Files: image.lisp Log Message: Read floats by rationalizing. --- /project/movitz/cvsroot/movitz/image.lisp 2005/08/21 13:47:16 1.104 +++ /project/movitz/cvsroot/movitz/image.lisp 2006/04/10 11:48:20 1.105 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.104 2005/08/21 13:47:16 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.105 2006/04/10 11:48:20 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1495,7 +1495,9 @@ (mapcar #'(lambda (slot) (movitz-read (slot-value expr (if (consp slot) (car slot) slot)))) slot-descriptions)) - movitz-object)))))))) + movitz-object))) + (float ; XXX + (movitz-read (rationalize expr)))))))) ;;;

1 0

[movitz-cvs] CVS movitz
by ffjeld 10 Apr '06

10 Apr '06

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv4685 Modified Files: storage-types.lisp Log Message: Added missing update-movitz-object method. --- /project/movitz/cvsroot/movitz/storage-types.lisp 2005/07/21 18:48:33 1.55 +++ /project/movitz/cvsroot/movitz/storage-types.lisp 2006/04/10 11:47:41 1.56 @@ -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.55 2005/07/21 18:48:33 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.56 2006/04/10 11:47:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1309,6 +1309,10 @@ (assert (= (movitz-ratio-value object) lisp-object)) object) +(defmethod update-movitz-object ((object movitz-ratio) (lisp-object float)) + (assert (= (movitz-ratio-value object) (rationalize lisp-object))) + object) + (defmethod print-object ((x movitz-ratio) stream) (print-unreadable-object (x stream :type t) (format stream "~D" (slot-value x 'value)))

1 0

[movitz-cvs] CVS movitz
by ffjeld 10 Apr '06

10 Apr '06

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv4635 Modified Files: special-operators.lisp Log Message: Just warn rather than error upon non-toplevel declaim. --- /project/movitz/cvsroot/movitz/special-operators.lisp 2005/08/28 21:03:53 1.54 +++ /project/movitz/cvsroot/movitz/special-operators.lisp 2006/04/10 11:47:14 1.55 @@ -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.54 2005/08/28 21:03:53 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.55 2006/04/10 11:47:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -598,7 +598,7 @@ (define-special-operator muerte::declaim-compile-time (&form form &top-level-p top-level-p) (unless top-level-p - (error "DECLAIM not at top-level.")) + (warn "DECLAIM not at top-level.")) (let ((declaration-specifiers (cdr form))) (movitz-env-load-declarations declaration-specifiers *movitz-global-environment* :declaim)) (compiler-values ()))

1 0

[movitz-cvs] CVS movitz
by ffjeld 10 Apr '06

10 Apr '06

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv4599 Modified Files: procfs-image.lisp Log Message: Invoke debugger with a string only. --- /project/movitz/cvsroot/movitz/procfs-image.lisp 2005/05/03 20:11:43 1.24 +++ /project/movitz/cvsroot/movitz/procfs-image.lisp 2006/04/10 11:46:25 1.25 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Aug 24 11:39:37 2001 ;;;; -;;;; $Id: procfs-image.lisp,v 1.24 2005/05/03 20:11:43 ffjeld Exp $ +;;;; $Id: procfs-image.lisp,v 1.25 2006/04/10 11:46:25 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -319,10 +319,11 @@ (let ((x (eval form))) (format t "~&~W" x) x) - (invoke-debugger "Established Bochs session [pid=~D]. ~S is ~S" - (image-pid image) - '*previous-image* - *previous-image*))))))) + (invoke-debugger + (format nil "Established Bochs session [pid=~D]. ~S is ~S" + (image-pid image) + '*previous-image* + *previous-image*)))))))) #+allegro (top-level:alias ("unbochs" 3) (&optional form)

1 0

[movitz-cvs] CVS movitz
by ffjeld 10 Apr '06

10 Apr '06

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv4553 Modified Files: movitz.lisp Log Message: Added support for #. reader syntax (i.e. translate muerte.cl to cl package). --- /project/movitz/cvsroot/movitz/movitz.lisp 2004/11/15 14:42:15 1.10 +++ /project/movitz/cvsroot/movitz/movitz.lisp 2006/04/10 11:45:36 1.11 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Oct 9 20:52:58 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: movitz.lisp,v 1.10 2004/11/15 14:42:15 ffjeld Exp $ +;;;; $Id: movitz.lisp,v 1.11 2006/04/10 11:45:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -56,6 +56,12 @@ ,@body (write-char #\> ,stream-var))))) +(defun movitz-syntax-sharp-dot (stream subchar arg) + (declare (ignore arg subchar)) + (let ((form (read stream t nil t))) + (values (unless *read-suppress* + (eval (muerte::translate-program form :muerte.cl :cl)))))) + (defmacro with-movitz-syntax (options &body body) (declare (ignore options)) `(let ((*readtable* (copy-readtable))) @@ -71,6 +77,11 @@ (make-movitz-vector (length data) :element-type 'movitz-unboxed-integer-u8 :initial-contents data)))) + (set-dispatch-macro-character #\# #\. (lambda (stream subchar arg) + (declare (ignore arg subchar)) + (let ((form (read stream t nil t))) + (values (unless *read-suppress* + (eval (muerte::translate-program form :muerte.cl :cl))))))) (set-macro-character #\` (lambda (stream char) (declare (ignore char)) (let ((*bq-level* (1+ *bq-level*)))

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 07 Apr '06

07 Apr '06

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv24514 Modified Files: print.lisp Log Message: Added write-to-string. --- /project/movitz/cvsroot/movitz/losp/muerte/print.lisp 2005/08/26 19:38:41 1.21 +++ /project/movitz/cvsroot/movitz/losp/muerte/print.lisp 2006/04/07 21:54:23 1.22 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 3 11:48:19 2001 ;;;; -;;;; $Id: print.lisp,v 1.21 2005/08/26 19:38:41 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.22 2006/04/07 21:54:23 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -201,6 +201,12 @@ (print-unreadable-object (c *standard-output* :type t :identity t) (format t "(while printing ~Z)" object)))))))) +(defun write-to-string (object &rest args) + (declare (dynamic-extent args)) + (apply 'write object + :stream (make-array 24 :element-type 'character :fill-pointer 0 :adjustable t) + args)) + (defun internal-write (object) (let ((stream *standard-output*)) (cond

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 07 Apr '06

07 Apr '06

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv24476 Modified Files: environment.lisp Log Message: random-state and pathname types. --- /project/movitz/cvsroot/movitz/losp/muerte/environment.lisp 2005/08/31 22:31:35 1.14 +++ /project/movitz/cvsroot/movitz/losp/muerte/environment.lisp 2006/04/07 21:53:47 1.15 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Oct 20 00:41:57 2001 ;;;; -;;;; $Id: environment.lisp,v 1.14 2005/08/31 22:31:35 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.15 2006/04/07 21:53:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -167,3 +167,6 @@ (defun sleep (seconds) (declare (ignore seconds)) (error "There is no default implementation of sleep.")) + +(defstruct random-state state) +(defstruct pathname name)

1 0

[movitz-cvs] CVS movitz/losp/muerte
by ffjeld 07 Apr '06

07 Apr '06

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv24435 Modified Files: loop.lisp Log Message: We need loop-copylist* at runtime. --- /project/movitz/cvsroot/movitz/losp/muerte/loop.lisp 2004/09/06 12:33:43 1.6 +++ /project/movitz/cvsroot/movitz/losp/muerte/loop.lisp 2006/04/07 21:53:02 1.7 @@ -70,6 +70,12 @@ ;;;This is the "current" loop context in use when we are expanding a ;;;loop. It gets bound on each invocation of LOOP. +#+movitz +(defmacro loop-copylist* (l) + #+Genera `(lisp:copy-list ,l nil t) ; arglist = (list &optional area force-dotted) + ;;@@@@Explorer?? + #-Genera `(copy-list ,l)) + (eval-when (:compile-toplevel) (defvar *loop-real-data-type* 'real) (defvar *loop-universe*)

1 0