movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

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

06 Feb '07

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv11191 Modified Files: hash-tables.lisp Log Message: Improve slightly sxhash on longish vectors. --- /project/movitz/cvsroot/movitz/losp/muerte/hash-tables.lisp 2006/04/07 21:52:36 1.12 +++ /project/movitz/cvsroot/movitz/losp/muerte/hash-tables.lisp 2007/02/06 20:03:57 1.13 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Feb 19 19:09:05 2001 ;;;; -;;;; $Id: hash-tables.lisp,v 1.12 2006/04/07 21:52:36 ffjeld Exp $ +;;;; $Id: hash-tables.lisp,v 1.13 2007/02/06 20:03:57 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -74,8 +74,12 @@ ,@declarations-and-body)))) (defun sxhash-subvector (vector start end &optional (limit 8)) - (let ((result 0)) - (dotimes (i (min limit (- end start))) + (let* ((length (- end start)) + (result (if (not (> length 8)) + 0 + (sxhash-limited (aref vector (- end 3)) + 1)))) + (dotimes (i (min limit length)) (incf result result) (incf result (let* ((element (aref vector (+ start i))) @@ -84,7 +88,7 @@ element-hash (* 7 element-hash))))) (ldb (byte 16 0) - (+ (* #x10ad (- end start)) + (+ (* #x10ad length) result)))) (defun sxhash-limited (object limit)

1 0

[movitz-cvs] CVS movitz
by ffjeld 06 Feb '07

06 Feb '07

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv11163 Modified Files: storage-types.lisp Log Message: Improve slightly sxhash on longish vectors. --- /project/movitz/cvsroot/movitz/storage-types.lisp 2006/10/27 06:53:27 1.58 +++ /project/movitz/cvsroot/movitz/storage-types.lisp 2007/02/06 20:03:53 1.59 @@ -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.58 2006/10/27 06:53:27 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.59 2007/02/06 20:03:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1008,8 +1008,10 @@ (movitz-symbol (movitz-symbol-hash-key object)) (movitz-string - (let ((object (movitz-print object)) - (result 0)) + (let* ((object (movitz-print object)) + (result (if (not (> (length object) 8)) + 0 + (char-code (char-upcase (aref object (- (length object) 3))))))) (dotimes (i (min 8 (length object))) (incf result result) (incf result

1 0

[movitz-cvs] CVS movitz
by ffjeld 06 Feb '07

06 Feb '07

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv10712 Modified Files: image.lisp Log Message: Add allow-other-keys-symbol to run-time-context. --- /project/movitz/cvsroot/movitz/image.lisp 2006/04/28 21:19:06 1.106 +++ /project/movitz/cvsroot/movitz/image.lisp 2007/02/06 20:02:41 1.107 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.106 2006/04/28 21:19:06 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.107 2007/02/06 20:02:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -389,6 +389,13 @@ :map-binary-read-delayed (lambda (x type) (declare (ignore x type)) (movitz-read nil))) + (allow-other-keys-symbol + :binary-type word + :initform :allow-other-keys + :map-binary-write 'movitz-read-and-intern + :map-binary-read-delayed (lambda (x type) + (declare (ignore x type)) + (movitz-read nil))) (self :binary-type word :initform 6

1 0

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

06 Feb '07

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv10601 Modified Files: error.lisp Log Message: Implement *backtrace-on-error*. --- /project/movitz/cvsroot/movitz/losp/muerte/error.lisp 2005/04/26 23:44:36 1.4 +++ /project/movitz/cvsroot/movitz/losp/muerte/error.lisp 2007/02/06 20:02:01 1.5 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Sep 1 00:49:11 2001 ;;;; -;;;; $Id: error.lisp,v 1.4 2005/04/26 23:44:36 ffjeld Exp $ +;;;; $Id: error.lisp,v 1.5 2007/02/06 20:02:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -44,6 +44,8 @@ ((not *ignore-errors*) (let (#+ignore (*ignore-errors* t)) (let ((condition (signal-simple 'simple-error datum args))) + (when *backtrace-on-error* + (backtrace)) (if condition (invoke-debugger condition) (apply 'invoke-debugger-on-designator 'simple-error datum args)))))

1 0

[movitz-cvs] CVS movitz
by ffjeld 01 Feb '07

01 Feb '07

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv27765 Modified Files: parse.lisp Log Message: Tweak decode-normal-lambda-list to also return whether &key was present at all. --- /project/movitz/cvsroot/movitz/parse.lisp 2006/05/05 18:37:37 1.6 +++ /project/movitz/cvsroot/movitz/parse.lisp 2007/02/01 19:37:41 1.7 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 24 16:49:17 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: parse.lisp,v 1.6 2006/05/05 18:37:37 ffjeld Exp $ +;;;; $Id: parse.lisp,v 1.7 2007/02/01 19:37:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -129,8 +129,9 @@ (defun decode-normal-lambda-list (lambda-list &optional host-symbols-p) "3.4.1 Ordinary Lambda Lists. Returns the requireds, &optionals, &rests, &keys, and &aux formal variables, -a boolean signalling whether &allow-other-keys was present, and finally -the minimum and maximum number of arguments (or nil if max is infinite)." +a boolean signalling whether &allow-other-keys was present, and then +the minimum and maximum number of arguments (or nil if max is infinite). +Finally, whether &key was present or not." ;; Movitz extension: &edx <var> may appear first in lambda-list (let ((edx-var nil)) (when (eq 'muerte::&edx (first lambda-list)) @@ -178,10 +179,10 @@ (when (> (length rests) 1) (error "There can only be one &REST formal parameter.")) (let ((maxargs (and (null rests) ; max num. of arguments, or nil. - (null keys) - (not allow-other-keys-p) - (+ (length requireds) - (length optionals)))) + (null keys) + (not allow-other-keys-p) + (+ (length requireds) + (length optionals)))) (minargs (length requireds))) (return (values requireds optionals @@ -199,7 +200,9 @@ ((assert (not maxargs))) ((evenp (+ (length requireds) (length optionals))) :even) - (t :odd)))))))))) + (t :odd)) + (not (eq :missing + (getf results (key) :missing))))))))))) (defun decode-optional-formal (formal) "3.4.1.2 Specifiers for optional parameters.

1 0

[movitz-cvs] CVS public_html
by ffjeld 03 Jan '07

03 Jan '07

Update of /project/movitz/cvsroot/public_html In directory clnet:/tmp/cvs-serv22908 Modified Files: index.html Log Message: *** empty log message *** --- /project/movitz/cvsroot/public_html/index.html 2006/08/07 13:37:31 1.28 +++ /project/movitz/cvsroot/public_html/index.html 2007/01/03 10:49:49 1.29 @@ -27,6 +27,9 @@ <p> <a href="movitz.html">More information about Movitz concepts.</a> + <h3>Trac</h3> + There is a <a href="http://trac.common-lisp.net/movitz/">Movitz Trac</a>. + <h3>Mailing Lists</h3> <ul> <li>

1 0

[movitz-cvs] CVS movitz
by ffjeld 08 Nov '06

08 Nov '06

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv1708 Modified Files: compiler-types.lisp Log Message: Teach compiler about the ratio type. --- /project/movitz/cvsroot/movitz/compiler-types.lisp 2005/08/21 23:29:44 1.25 +++ /project/movitz/cvsroot/movitz/compiler-types.lisp 2006/11/08 08:57:05 1.26 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Sep 10 00:40:07 2003 ;;;; -;;;; $Id: compiler-types.lisp,v 1.25 2005/08/21 23:29:44 ffjeld Exp $ +;;;; $Id: compiler-types.lisp,v 1.26 2006/11/08 08:57:05 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -233,7 +233,7 @@ ;;; (defparameter *tb-bitmap* - '(hash-table character function cons keyword symbol vector array integer :tail) + '(hash-table character function cons keyword symbol vector array integer ratio :tail) "The union of these types must be t.") (defun basic-typep (x type) @@ -255,7 +255,9 @@ (fixnum (typep x 'movitz-fixnum)) (bignum - (typep x 'movitz-bignum)))) + (typep x 'movitz-bignum)) + (ratio + (typep x 'movitz-ratio)))) (defun type-code (first-type &rest types) "Find the code (a bitmap) for (or ,@types)." @@ -364,7 +366,7 @@ (or (type-code-p 'integer code) (and integer-range (numscope-memberp integer-range (movitz-bignum-value x))))) - (t (dolist (bt '(symbol character function cons hash-table vector) + (t (dolist (bt '(symbol character function cons hash-table vector ratio) (error "Cant decide typep for ~S." x)) (when (basic-typep x bt) (return (type-code-p bt code))))))

1 0

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

07 Nov '06

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv3438 Modified Files: format.lisp Log Message: When printing the last digit in format-float, use (floor (+ 1/2 x)) rather than (round x), because round rounds towards the nearest _even_ integer. See (bottom of CLHS entry for round et al). --- /project/movitz/cvsroot/movitz/losp/muerte/format.lisp 2006/04/05 23:02:22 1.13 +++ /project/movitz/cvsroot/movitz/losp/muerte/format.lisp 2006/11/07 12:16:59 1.14 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Mar 23 01:18:36 2002 ;;;; -;;;; $Id: format.lisp,v 1.13 2006/04/05 23:02:22 ffjeld Exp $ +;;;; $Id: format.lisp,v 1.14 2006/11/07 12:16:59 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -82,7 +82,7 @@ (declare (index i)) (multiple-value-bind (next-digit next-remainder) (if (= i last-i) - (round (* 10 remainder)) + (floor (+ 1/2 (* 10 remainder))) (truncate (* 10 remainder))) (setf remainder next-remainder) (write-digit next-digit *standard-output*)))))))

1 0

[movitz-cvs] CVS movitz
by ffjeld 27 Oct '06

27 Oct '06

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv5194 Modified Files: storage-types.lisp Log Message: Factor out find-movitz-hash-table-test and try to make it CLisp-compatible. --- /project/movitz/cvsroot/movitz/storage-types.lisp 2006/05/15 19:49:25 1.57 +++ /project/movitz/cvsroot/movitz/storage-types.lisp 2006/10/27 06:53:27 1.58 @@ -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.57 2006/05/15 19:49:25 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.58 2006/10/27 06:53:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1026,6 +1026,15 @@ (defvar *hash-table-size-factor* 5/4) +(defun find-movitz-hash-table-test (lisp-hash) + (ecase (hash-table-test lisp-hash) + ((eq #+clisp ext:fasthash-eq) + (values 'muerte.cl:eq 'muerte::sxhash-eq)) + ((eql #+clisp ext:fasthash-eql) + (values 'muerte.cl:eql 'muerte.cl::sxhash)) + ((equal #+clisp ext:fasthash-equal) + (values 'muerte.cl:equal 'muerte.cl::sxhash)))) + (defun make-movitz-hash-table (lisp-hash) (let* ((undef (movitz-read +undefined-hash-key+)) (hash-count (hash-table-count lisp-hash)) @@ -1033,10 +1042,7 @@ *hash-table-size-factor*)))) (bucket-data (make-array hash-size :initial-element undef))) (multiple-value-bind (hash-test hash-sxhash) - (ecase (hash-table-test lisp-hash) - (eq (values 'muerte.cl:eq 'muerte::sxhash-eq)) - (eql (values 'muerte.cl:eql 'muerte.cl::sxhash)) - (equal (values 'muerte.cl:equal 'muerte.cl::sxhash))) + (find-movitz-hash-table-test lisp-hash) (loop for key being the hash-keys of lisp-hash using (hash-value value) for movitz-key = (movitz-read key) for movitz-value = (movitz-read value) @@ -1074,10 +1080,7 @@ (fill (movitz-vector-symbolic-data old-bucket) undef)) (make-array hash-size :initial-element undef)))) (multiple-value-bind (hash-test hash-sxhash) - (ecase (hash-table-test lisp-hash) - (eq (values 'muerte.cl:eq 'muerte::sxhash-eq)) - (eql (values 'muerte.cl:eql 'muerte.cl::sxhash)) - (equal (values 'muerte.cl:equal 'muerte.cl::sxhash))) + (find-movitz-hash-table-test lisp-hash) (loop for key being the hash-keys of lisp-hash using (hash-value value) for movitz-key = (movitz-read key) for movitz-value = (movitz-read value)

1 0

[movitz-cvs] CVS movitz/losp
by ffjeld 27 Oct '06

27 Oct '06

Update of /project/movitz/cvsroot/movitz/losp In directory clnet:/tmp/cvs-serv2573 Modified Files: los0-gc.lisp Log Message: Change #250() to #250(nil), so hopefully CLisp will accept it. --- /project/movitz/cvsroot/movitz/losp/los0-gc.lisp 2006/03/17 20:49:57 1.60 +++ /project/movitz/cvsroot/movitz/losp/los0-gc.lisp 2006/10/27 06:23:32 1.61 @@ -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.60 2006/03/17 20:49:57 ffjeld Exp $ +;;;; $Id: los0-gc.lisp,v 1.61 2006/10/27 06:23:32 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -336,8 +336,8 @@ ;;;(defparameter *xx* #4000(nil)) ; Have this in static space. (defparameter *code-vector-foo* 0) -(defvar *old-code-vectors* #250()) -(defvar *new-code-vectors* #250()) +(defvar *old-code-vectors* #250(nil)) +(defvar *new-code-vectors* #250(nil)) (defun stop-and-copy (&optional evacuator) (setf (fill-pointer *x*) 0)

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