movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[movitz-cvs] CVS movitz/losp
by ffjeld 17 Mar '06

17 Mar '06

Update of /project/movitz/cvsroot/movitz/losp In directory clnet:/tmp/cvs-serv7876 Modified Files: los0-gc.lisp Log Message: Let's get back on that horse.. real slow now.. --- /project/movitz/cvsroot/movitz/losp/los0-gc.lisp 2005/08/31 22:35:49 1.59 +++ /project/movitz/cvsroot/movitz/losp/los0-gc.lisp 2006/03/17 20:49:57 1.60 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Feb 21 17:48:32 2004 ;;;; -;;;; $Id: los0-gc.lisp,v 1.59 2005/08/31 22:35:49 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.60 2006/03/17 20:49:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -388,7 +388,7 @@ ((not (object-in-space-p oldspace x)) x) ((when (typep x 'run-time-context) - (warn "Scavengning ~S" x))) + (warn "Scavenging ~S" x))) (t (or (and (eq (object-tag x) (ldb (byte 3 0) (memref (object-location x) 0 :type :unsigned-byte8)))

1 0

[movitz-cvs] CVS update: public_html/index.html
by ffjeld＠common-lisp.net 18 Jan '06

18 Jan '06

Update of /project/movitz/cvsroot/public_html In directory common-lisp:/tmp/cvs-serv3885 Modified Files: index.html Log Message: I was nagged. Date: Wed Jan 18 13:13:34 2006 Author: ffjeld Index: public_html/index.html diff -u public_html/index.html:1.26 public_html/index.html:1.27 --- public_html/index.html:1.26 Sat Nov 12 15:15:42 2005 +++ public_html/index.html Wed Jan 18 13:13:34 2006 @@ -103,7 +103,7 @@ <p> <div class="footer"> - <a href="ffjeld (at) common-lisp (dot) net">Frode V. Fjeld</a> + <a href="mailto:ffjeld (at) common-lisp (dot) net">Frode V. Fjeld</a> July. 8, 2004. </div>

1 0

[movitz-cvs] CVS update: movitz/losp/x86-pc/pci-device.lisp
by ffjeld＠common-lisp.net 10 Jan '06

10 Jan '06

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv31038 Added Files: pci-device.lisp Log Message: Forgot to check in this file. Date: Tue Jan 10 12:04:40 2006 Author: ffjeld

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/scavenge.lisp
by ffjeld＠common-lisp.net 07 Jan '06

07 Jan '06

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv28195 Modified Files: scavenge.lisp Log Message: Remove unused new-code-vector. Date: Sat Jan 7 22:40:13 2006 Author: ffjeld Index: movitz/losp/muerte/scavenge.lisp diff -u movitz/losp/muerte/scavenge.lisp:1.54 movitz/losp/muerte/scavenge.lisp:1.55 --- movitz/losp/muerte/scavenge.lisp:1.54 Sun Aug 28 23:13:07 2005 +++ movitz/losp/muerte/scavenge.lisp Sat Jan 7 22:40:12 2006 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Mar 29 14:54:08 2004 ;;;; -;;;; $Id: scavenge.lisp,v 1.54 2005/08/28 21:13:07 ffjeld Exp $ +;;;; $Id: scavenge.lisp,v 1.55 2006/01/07 21:40:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -362,8 +362,7 @@ (scavenge-find-code-vector function (stack-frame-ref nil eip-index 0 :location) 0 interrupted-esi - nil)) - (new-code-vector (map-instruction-pointer function eip-index old-code-vector))) + nil))) ;; (when atomically (we should be more clever about the stack..)) (multiple-value-bind (x0-location x0-tag) (stack-frame-ref nil next-frame-bottom 0 :signed-byte30+2)

1 0

[movitz-cvs] CVS update: movitz/doc/ChangeLog
by ffjeld＠common-lisp.net 02 Dec '05

02 Dec '05

Update of /project/movitz/cvsroot/movitz/doc In directory common-lisp.net:/tmp/cvs-serv17956 Modified Files: ChangeLog Log Message: *** empty log message *** Date: Fri Dec 2 23:06:51 2005 Author: ffjeld Index: movitz/doc/ChangeLog diff -u movitz/doc/ChangeLog:1.10 movitz/doc/ChangeLog:1.11 --- movitz/doc/ChangeLog:1.10 Sat Jan 29 11:32:57 2005 +++ movitz/doc/ChangeLog Fri Dec 2 23:06:49 2005 @@ -1,3 +1,13 @@ +2005-12-02 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> + + * Uploaded a new los0.img. + +2005-11-02 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> + + * Fixed some aspects of the REPL code so that it will run in the + default bare-bones environment that a new thread gets. This makes + it more convenient to fiddle with threading. + 2005-01-29 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> * There's been quite a bit of work on scavenge.lisp. The stack scavenging

1 0

[movitz-cvs] CVS update: public_html/ChangeLog
by ffjeld＠common-lisp.net 12 Nov '05

12 Nov '05

Update of /project/movitz/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv5115 Modified Files: ChangeLog Log Message: *** empty log message *** Date: Sat Nov 12 22:16:48 2005 Author: ffjeld Index: public_html/ChangeLog diff -u public_html/ChangeLog:1.8 public_html/ChangeLog:1.9 --- public_html/ChangeLog:1.8 Thu Jul 21 19:38:50 2005 +++ public_html/ChangeLog Sat Nov 12 22:16:48 2005 @@ -1,3 +1,9 @@ +2005-10-31 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> + + * Fixed threading to work, in the sense that the REPL code will + now work reasonably in the dynamic environment that a fresh thread + supplies. + 2005-07-21 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> * Fixed the compiler to handle e.g.

1 0

[movitz-cvs] CVS update: public_html/index.html
by ffjeld＠common-lisp.net 12 Nov '05

12 Nov '05

Update of /project/movitz/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv4640 Modified Files: index.html Log Message: *** empty log message *** Date: Sat Nov 12 22:15:43 2005 Author: ffjeld Index: public_html/index.html diff -u public_html/index.html:1.25 public_html/index.html:1.26 --- public_html/index.html:1.25 Sat Jun 11 01:19:12 2005 +++ public_html/index.html Sat Nov 12 22:15:42 2005 @@ -15,6 +15,10 @@ <h3>Most recent news</h3> + <p> <i>October 31, 2005:</i> Fixed threading to work, in the sense + that the REPL code will now work reasonably in the dynamic + environment that a fresh thread supplies. + <p> <i>June 11, 2005</i> Started to add support for threads (in the "threading" package), and also for adjustable and displaced vectors.

1 0

[movitz-cvs] CVS update: movitz/environment.lisp
by ffjeld＠common-lisp.net 31 Oct '05

31 Oct '05

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv12309 Modified Files: environment.lisp Log Message: Fix find-dynamic-extent-scope so as to terminate search when crossing a funobj-env Date: Mon Oct 31 21:30:33 2005 Author: ffjeld Index: movitz/environment.lisp diff -u movitz/environment.lisp:1.14 movitz/environment.lisp:1.15 --- movitz/environment.lisp:1.14 Sat Aug 20 22:30:54 2005 +++ movitz/environment.lisp Mon Oct 31 21:30:32 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 3 11:40:15 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: environment.lisp,v 1.14 2005/08/20 20:30:54 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.15 2005/10/31 20:30:32 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -144,7 +144,7 @@ (defun find-dynamic-extent-scope (env) (loop for e = env then (movitz-environment-uplink e) - while e + while (and e (not (typep e 'funobj-env))) do (when (typep e 'with-dynamic-extent-allocation-env) (return (allocation-env-scope e)))))

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by ffjeld＠common-lisp.net 31 Oct '05

31 Oct '05

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv28474 Modified Files: compiler.lisp Log Message: Fixed compilation of lambda-forms. It apears there's still some troubles with nested lambdas. Date: Mon Oct 31 10:22:55 2005 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.165 movitz/compiler.lisp:1.166 --- movitz/compiler.lisp:1.165 Sun Sep 18 18:20:35 2005 +++ movitz/compiler.lisp Mon Oct 31 10:22:54 2005 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.165 2005/09/18 16:20:35 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.166 2005/10/31 09:22:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -5535,7 +5535,7 @@ (defun lambda-form-p (form) (and (listp form) - (eq 'cl:lambda (first form)))) + (eq 'muerte.cl:lambda (first form)))) (defun function-name-p (operator) (or (and (symbolp operator) operator) @@ -6055,9 +6055,13 @@ (:int 99) ,not-unbound))))))))) -(define-compiler compile-lambda-form (&form form) +(define-compiler compile-lambda-form (&form form &all all) "3.1.2.2.4 Lambda Forms" - (error "Don't know how to compile lambda form ~A" form)) + (let ((lambda-expression (car form)) + (lambda-args (cdr form))) + (compiler-call #'compile-form-unprotected + :forward all + :form `(muerte.cl:funcall ,lambda-expression ,@lambda-args)))) (define-compiler compile-constant-compound (&all all &form form &env env &top-level-p top-level-p) (compiler-call #'compile-self-evaluating

1 0

[movitz-cvs] CVS update: movitz/losp/lib/repl.lisp
by ffjeld＠common-lisp.net 31 Oct '05

31 Oct '05

Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv28380 Modified Files: repl.lisp Log Message: Catch serious-conditions during readline, since readline is used for by the debugger. This to avoid recursive errors. Date: Mon Oct 31 10:19:15 2005 Author: ffjeld Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.16 movitz/losp/lib/repl.lisp:1.17 --- movitz/losp/lib/repl.lisp:1.16 Sun Aug 28 23:12:27 2005 +++ movitz/losp/lib/repl.lisp Mon Oct 31 10:19:15 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 19 14:58:12 2003 ;;;; -;;;; $Id: repl.lisp,v 1.16 2005/08/28 21:12:27 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.17 2005/10/31 09:19:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -53,9 +53,14 @@ (handler-case (let ((previous-package *package*) (buffer-string - (if *repl-readline-context* - (muerte.readline:contextual-readline *repl-readline-context*) - (muerte.readline:readline (make-string 256) *terminal-io*)))) + (handler-bind + ((serious-condition + (lambda (c) + (backtrace :frame (muerte:current-stack-frame)) + (format *terminal-io* "~&Error during readline (~S): ~A" + *repl-readline-context* c) + (muerte:halt-cpu)))) + (muerte.readline:contextual-readline *repl-readline-context*)))) (when (plusp (length buffer-string)) (terpri) (multiple-value-bind (form buffer-pointer)

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