January 2004 - movitz-cvs@common-lisp.net

[movitz-cvs] CVS update: movitz/losp/muerte/sequences.lisp
by Frode Vatvedt Fjeld 28 Jan '04

28 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25889 Modified Files: sequences.lisp Log Message: Fill might concievably work now. Date: Wed Jan 28 16:06:11 2004 Author: ffjeld Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.3 movitz/losp/muerte/sequences.lisp:1.4 --- movitz/losp/muerte/sequences.lisp:1.3 Wed Jan 28 15:25:58 2004 +++ movitz/losp/muerte/sequences.lisp Wed Jan 28 16:06:08 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 11 14:19:23 2001 ;;;; -;;;; $Id: sequences.lisp,v 1.3 2004/01/28 20:25:58 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.4 2004/01/28 21:06:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -651,19 +651,20 @@ (apply 'map-for-list function first-sequence more-sequences)) (t (error "MAP not implemented.")))) -(defun fill (sequence item &key (start 0) (end (length sequence))) +(defun fill (sequence item &key (start 0) end) "=> sequence" (sequence-dispatch sequence (list - (do ((p (nthcdr start sequence)) + (do ((p (nthcdr start sequence) (cdr p)) (i start (1+ i))) - ((and end (>= i end))) + ((or (null p) (and end (>= i end)))) (setf (car p) item))) (vector - (with-subvector-accessor (sequence-ref sequence start end) - (do ((i start (1+ i))) - ((>= i end)) - (setf (sequence-ref i) item))))) + (let ((end (or end (length sequence)))) + (with-subvector-accessor (sequence-ref sequence start end) + (do ((i start (1+ i))) + ((>= i end)) + (setf (sequence-ref i) item)))))) sequence) (defun replace (sequence-1 sequence-2 &key (start1 0) end1 (start2 0) end2)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/sequences.lisp
by Frode Vatvedt Fjeld 28 Jan '04

28 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv18237 Modified Files: sequences.lisp Log Message: Minor tweaks. Date: Wed Jan 28 15:26:00 2004 Author: ffjeld Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.2 movitz/losp/muerte/sequences.lisp:1.3 --- movitz/losp/muerte/sequences.lisp:1.2 Mon Jan 19 06:23:47 2004 +++ movitz/losp/muerte/sequences.lisp Wed Jan 28 15:25:58 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 11 14:19:23 2001 ;;;; -;;;; $Id: sequences.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.3 2004/01/28 20:25:58 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -60,12 +60,12 @@ (list (do ((x sequence (cdr x)) (length 0 (1+ length))) - ((endp x) length))))) + ((null x) length))))) (defun length%list (sequence) - (do ((x sequence (cdr x)) - (length 0 (1+ length))) - ((endp x) length))) + (do ((length 0 (1+ length)) + (x sequence (cdr x))) + ((null x) length))) (defun elt (sequence index) (sequence-dispatch sequence @@ -181,7 +181,7 @@ (defun copy-seq (sequence) (subseq sequence 0)) -(defun position (item sequence &key from-end (test #'eql) test-not (start 0) end (key 'identity)) +(defun position (item sequence &key from-end (test #'eql) test-not (start 0) end (key 'identity)) (numargs-case (2 (item sequence) (sequence-dispatch sequence @@ -193,10 +193,9 @@ (when (eql (sequence-ref i) item) (return i))))) (list - (do ((p sequence (cdr p)) - (i 0 (1+ i))) - ((endp p) nil) - (when (eql (car p) item) + (do ((i 0 (1+ i))) + ((null sequence) nil) + (when (eql (pop sequence) item) (return i)))))) (t (item sequence &key from-end (test #'eql) test-not (start 0) end (key 'identity)) (with-funcallable (key) @@ -219,21 +218,21 @@ (list (cond ((not end) - (do ((p (nthcdr start sequence) (cdr p)) + (do ((p (nthcdr start sequence)) (i start (1+ i))) - ((endp p) nil) - (when (test (key (car p)) item) + ((null p) nil) + (when (test (key (pop p)) item) (return (if (not from-end) i - (let ((next-i (position item (cdr p) :key key :from-end t + (let ((next-i (position item p :key key :from-end t :test test :test-not test-not))) (if next-i (+ i 1 next-i ) i))))))) - (t (do ((p (nthcdr start sequence) (cdr p)) + (t (do ((p (nthcdr start sequence)) (i start (1+ i))) - ((or (endp p) (>= i end)) nil) - (when (test (key (car p)) item) + ((or (null p) (>= i end)) nil) + (when (test (key (pop p)) item) (return (if (not from-end) i - (let ((next-i (position item (cdr p) :end (- end 1 i) :from-end t + (let ((next-i (position item p :end (- end 1 i) :from-end t :key key :test test :test-not test-not))) (if next-i (+ i 1 next-i ) i))))))))))))))) @@ -250,10 +249,10 @@ (when (predicate (sequence-ref i)) (return i))))) (list - (do ((p sequence (cdr p)) + (do ((p sequence) (i 0 (1+ i))) - ((endp p)) - (when (predicate (car p)) + ((null p)) + (when (predicate (pop p)) (return i))))))) (t (predicate sequence &key (start 0) end (key 'identity) from-end) (with-funcallable (predicate) @@ -275,19 +274,20 @@ (list (cond (end - (do ((p (nthcdr start sequence) (cdr p)) + (do ((p (nthcdr start sequence)) (i start (1+ i))) - ((or (>= i end) (endp p))) - (when (predicate (key (car p))) + ((or (>= i end) (null p))) + (when (predicate (key (pop p))) (return (if (not from-end) i - (let ((next-i (position-if predicate (cdr p) :key key :from-end t :end (- end i 1)))) + (let ((next-i (position-if predicate p :key key + :from-end t :end (- end i 1)))) (if next-i (+ i 1 next-i) i))))))) - (t (do ((p (nthcdr start sequence) (cdr p)) + (t (do ((p (nthcdr start sequence)) (i start (1+ i))) - ((endp p)) - (when (predicate (key (car p))) + ((null p)) + (when (predicate (key (pop p))) (return (if (not from-end) i - (let ((next-i (position-if predicate (cdr p) :key key :from-end t))) + (let ((next-i (position-if predicate p :key key :from-end t))) (if next-i (+ i 1 next-i) i))))))))))))))) @@ -312,10 +312,10 @@ (defun reverse (sequence) (sequence-dispatch sequence (list - (do ((p sequence (cdr p)) - (r nil)) - ((endp p) r) - (push (car p) r))) + (let ((result nil)) + (dolist (x sequence) + (push x result)) + result)) (vector (nreverse (copy-seq sequence)))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/loop.lisp
by Frode Vatvedt Fjeld 21 Jan '04

21 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv10402 Modified Files: loop.lisp Log Message: Patch to loop from new-b. Date: Wed Jan 21 17:02:10 2004 Author: ffjeld Index: movitz/losp/muerte/loop.lisp diff -u movitz/losp/muerte/loop.lisp:1.2 movitz/losp/muerte/loop.lisp:1.3 --- movitz/losp/muerte/loop.lisp:1.2 Thu Jan 15 11:41:45 2004 +++ movitz/losp/muerte/loop.lisp Wed Jan 21 17:02:09 2004 @@ -151,7 +151,7 @@ #+ignore (if *loop-gentemp* (gentemp (string pref)) - (gensym))) + (gensym (string pref)))) @@ -1184,7 +1184,7 @@ (setq *loop-names* (list name nil)))) (defun loop-do-return () - (loop-pseudo-body (loop-construct-return (loop-get-form)))) + (loop-emit-body (loop-construct-return (loop-get-form)))) ) @@ -1752,7 +1752,7 @@ ((eq prep :upfrom) (setq dir ':up))) (multiple-value-setq (form start-constantp start-value) (loop-constant-fold-if-possible form indexv-type)) - (loop-make-iteration-variable indexv form indexv-type)) + (setq indexv (loop-make-iteration-variable indexv form indexv-type))) ((:upto :to :downto :above :below) (cond ((loop-tequal prep :upto) (setq inclusive-iteration (setq dir ':up))) ((loop-tequal prep :to) (setq inclusive-iteration t))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp
by Frode Vatvedt Fjeld 20 Jan '04

20 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25475 Modified Files: io-port.lisp Log Message: Added %io-port-write-succession. Completely untested. Date: Tue Jan 20 16:53:11 2004 Author: ffjeld Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.4 movitz/losp/muerte/io-port.lisp:1.5 --- movitz/losp/muerte/io-port.lisp:1.4 Tue Jan 20 16:39:10 2004 +++ movitz/losp/muerte/io-port.lisp Tue Jan 20 16:53:11 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.4 2004/01/20 21:39:10 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.5 2004/01/20 21:53:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -203,7 +203,7 @@ (assert (= 4 movitz:+movitz-fixnum-factor+)) (if (<= 1 count 20) `(with-inline-assembly-case () - (do-case (t :eax :labels (io-read-loop end-io-read-loop not-fixnum)) + (do-case (t :eax) (:compile-two-forms (:edx :ebx) ,port ,object) (:andl ,(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) (:shrl ,movitz::+movitz-fixnum-shift+ :edx) @@ -316,6 +316,140 @@ (%io-port-read-succession port object 2 start end :16-bit)) (:32-bit (%io-port-read-succession port object 2 start end :32-bit)) + (t (error "Unknown byte-size ~S." byte-size)))) + +(define-compiler-macro %io-port-write-succession (&whole form port object offset start end byte-size + &environment env) + (if (not (movitz:movitz-constantp byte-size env)) + form + (let ((byte-size (movitz:movitz-eval byte-size env))) + (cond + ((and (movitz:movitz-constantp offset env) + (movitz:movitz-constantp start env) + (movitz:movitz-constantp end env)) + (let* ((offset (movitz:movitz-eval offset env)) + (start (movitz:movitz-eval start env)) + (end (movitz:movitz-eval end env)) + (count (- end start))) + (check-type count (integer 0 #x10000)) + (case byte-size + (:32-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + (if (<= 1 count 20) + `(with-inline-assembly-case () + (do-case (t :eax) + (:compile-two-forms (:edx :ebx) ,port ,object) + (:andl ,(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl ,movitz::+movitz-fixnum-shift+ :edx) + ,@(loop for i from start below end + appending + `((:movl (:ebx ,(+ offset (* 4 i))) :eax) + (:outl :eax :dx))) + (:movl :ebx :eax))) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-two-forms (:edx :ebx) ,port ,object) + (:andl ,(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl ,movitz::+movitz-fixnum-shift+ :edx) + (:pushl ,(cl:* movitz::+movitz-fixnum-factor+ end)) ; keep end in (:esp) + (:movl ,(cl:* movitz::+movitz-fixnum-factor+ start) :ecx) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:addl 4 :ecx) + (:movl (:ebx ,(+ offset -4) :ecx) :eax) + (:outl :eax :dx) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop)))) + (t (error "~S byte-size ~S not implemented." (car form) byte-size))))) + ((and (movitz:movitz-constantp offset env)) + (let ((offset (movitz:movitz-eval offset env))) + (case byte-size + (:8-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :eax) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :ecx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :eax) + (:shrl #.movitz::+movitz-fixnum-shift+ :ecx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:addl 1 :ecx) + (:movb (:ebx ,(+ offset -1) (:ecx 1)) :al) + (:outb :al :dx) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) + (:16-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :eax) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :ecx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :eax) + (:shrl #.movitz::+movitz-fixnum-shift+ :ecx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:addl 1 :ecx) + (:movw (:ebx ,(+ offset -2) (:ecx 2)) :ax) + (:outw :ax :dx) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) + (:32-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:addl 4 :ecx) + (:movl (:ebx ,(+ offset -4) :ecx) :eax) + (:outl :eax :dx) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) + (t (error "~S byte-size ~S not implemented." (car form) byte-size))))) + (t (error "Variable offset not implemented.")))))) + +(defun %io-port-write-succession (port object offset start end byte-size) + (unless (= 2 offset) + (error "Only offset 2 implemented.")) + (case byte-size + (:8-bit + (%io-port-write-succession port object 2 start end :8-bit)) + (:16-bit + (%io-port-write-succession port object 2 start end :16-bit)) + (:32-bit + (%io-port-write-succession port object 2 start end :32-bit)) (t (error "Unknown byte-size ~S." byte-size))))

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp
by Frode Vatvedt Fjeld 20 Jan '04

20 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19661 Modified Files: io-port.lisp Log Message: Added :8-bit and :16-bit bit to %io-port-read-succession. Date: Tue Jan 20 16:39:12 2004 Author: ffjeld Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.3 movitz/losp/muerte/io-port.lisp:1.4 --- movitz/losp/muerte/io-port.lisp:1.3 Tue Jan 20 10:40:18 2004 +++ movitz/losp/muerte/io-port.lisp Tue Jan 20 16:39:10 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.3 2004/01/20 15:40:18 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.4 2004/01/20 21:39:10 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -232,6 +232,56 @@ ((and (movitz:movitz-constantp offset env)) (let ((offset (movitz:movitz-eval offset env))) (case byte-size + (:8-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :eax) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :ecx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :eax) + (:shrl #.movitz::+movitz-fixnum-shift+ :ecx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:inb :dx :al) + (:addl 1 :ecx) + (:movb :al (:ebx ,(+ offset -1) (:ecx 1))) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) + (:16-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :eax) + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :ecx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :eax) + (:shrl #.movitz::+movitz-fixnum-shift+ :ecx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:inw :dx :ax) + (:addl 1 :ecx) + (:movw :ax (:ebx ,(+ offset -2) (:ecx 2))) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) (:32-bit (assert (= 4 movitz:+movitz-fixnum-factor+)) `(with-inline-assembly-case () @@ -254,14 +304,19 @@ (:popl :eax) ; increment :esp, and put a lispval in :eax. end-io-read-loop))) (t (error "~S byte-size ~S not implemented." (car form) byte-size))))) - (t (error "Not implemented.")))))) + (t (error "Variable offset not implemented.")))))) (defun %io-port-read-succession (port object offset start end byte-size) (unless (= 2 offset) (error "Only offset 2 implemented.")) - (ecase byte-size + (case byte-size + (:8-bit + (%io-port-read-succession port object 2 start end :8-bit)) + (:16-bit + (%io-port-read-succession port object 2 start end :16-bit)) (:32-bit - (%io-port-read-succession port object 2 start end :32-bit)))) + (%io-port-read-succession port object 2 start end :32-bit)) + (t (error "Unknown byte-size ~S." byte-size)))) (defun io-port-read-sequence (sequence port type transfer-unit &key (start 0) end)

1 0

[movitz-cvs] CVS update: movitz/losp/muerte/io-port.lisp
by Frode Vatvedt Fjeld 20 Jan '04

20 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv24840 Modified Files: io-port.lisp Log Message: Started new io-port operator %io-port-read-succession. Date: Tue Jan 20 10:40:18 2004 Author: ffjeld Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.2 movitz/losp/muerte/io-port.lisp:1.3 --- movitz/losp/muerte/io-port.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/io-port.lisp Tue Jan 20 10:40:18 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.3 2004/01/20 15:40:18 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -183,6 +183,86 @@ (defun io-delay (&optional (x 1000)) (dotimes (i x) (with-inline-assembly (:returns :nothing) (:nop)))) + +(define-compiler-macro %io-port-read-succession (&whole form port object offset start end byte-size + &environment env) + (if (not (movitz:movitz-constantp byte-size env)) + form + (let ((byte-size (movitz:movitz-eval byte-size env))) + (cond + ((and (movitz:movitz-constantp offset env) + (movitz:movitz-constantp start env) + (movitz:movitz-constantp end env)) + (let* ((offset (movitz:movitz-eval offset env)) + (start (movitz:movitz-eval start env)) + (end (movitz:movitz-eval end env)) + (count (- end start))) + (check-type count (integer 0 #x10000)) + (case byte-size + (:32-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + (if (<= 1 count 20) + `(with-inline-assembly-case () + (do-case (t :eax :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-two-forms (:edx :ebx) ,port ,object) + (:andl ,(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl ,movitz::+movitz-fixnum-shift+ :edx) + ,@(loop for i from start below end + appending + `((:inl :dx :eax) + (:movl :eax (:ebx ,(+ offset (* 4 i)))))) + (:movl :ebx :eax))) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-two-forms (:edx :ebx) ,port ,object) + (:andl ,(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl ,movitz::+movitz-fixnum-shift+ :edx) + (:pushl ,(cl:* movitz::+movitz-fixnum-factor+ end)) ; keep end in (:esp) + (:movl ,(cl:* movitz::+movitz-fixnum-factor+ start) :ecx) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:inl :dx :eax) + (:addl 4 :ecx) + (:movl :eax (:ebx ,(+ offset -4) :ecx)) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop)))) + (t (error "~S byte-size ~S not implemented." (car form) byte-size))))) + ((and (movitz:movitz-constantp offset env)) + (let ((offset (movitz:movitz-eval offset env))) + (case byte-size + (:32-bit + (assert (= 4 movitz:+movitz-fixnum-factor+)) + `(with-inline-assembly-case () + (do-case (t :ebx :labels (io-read-loop end-io-read-loop not-fixnum)) + (:compile-form (:result-mode :push) ,port) + (:compile-form (:result-mode :push) ,object) + (:compile-two-forms (:ecx :eax) ,start ,end) + (:popl :ebx) ; object + (:popl :edx) ; port + (:andl #.(cl:* #xffff movitz::+movitz-fixnum-factor+) :edx) + (:shrl #.movitz::+movitz-fixnum-shift+ :edx) + (:pushl :eax) ; keep end in (:esp) + io-read-loop + (:cmpl :ecx (:esp)) + (:jbe 'end-io-read-loop) + (:inl :dx :eax) + (:addl 4 :ecx) + (:movl :eax (:ebx ,(+ offset -4) :ecx)) + (:jmp 'io-read-loop) + (:popl :eax) ; increment :esp, and put a lispval in :eax. + end-io-read-loop))) + (t (error "~S byte-size ~S not implemented." (car form) byte-size))))) + (t (error "Not implemented.")))))) + +(defun %io-port-read-succession (port object offset start end byte-size) + (unless (= 2 offset) + (error "Only offset 2 implemented.")) + (ecase byte-size + (:32-bit + (%io-port-read-succession port object 2 start end :32-bit)))) + (defun io-port-read-sequence (sequence port type transfer-unit &key (start 0) end) (etypecase sequence

1 0

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

19 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv25504 Modified Files: load.lisp Log Message: A "fix" for SBCL's defconstant annoyance, according to nyef's patch. Date: Mon Jan 19 14:21:14 2004 Author: ffjeld Index: movitz/load.lisp diff -u movitz/load.lisp:1.6 movitz/load.lisp:1.7 --- movitz/load.lisp:1.6 Mon Jan 19 06:23:41 2004 +++ movitz/load.lisp Mon Jan 19 14:21:14 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.6 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: load.lisp,v 1.7 2004/01/19 19:21:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -63,8 +63,10 @@ (do () (nil) (with-simple-restart (retry "Retry loading ~S" path) (return - (load (or (compile-file path :print nil) - (error "Compile-file of ~S failed?" path))))))) + (handler-bind + (#+sbcl (sb-ext:defconstant-uneql #'continue)) + (load (or (compile-file path :print nil) + (error "Compile-file of ~S failed?" path)))))))) '("packages" "movitz" "parse"

1 0

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

19 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv23969 Modified Files: compiler.lisp Log Message: A "fix" for SBCL's defconstant annoyance, according to nyef's patch. Date: Mon Jan 19 14:21:08 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.3 movitz/compiler.lisp:1.4 --- movitz/compiler.lisp:1.3 Fri Jan 16 14:06:40 2004 +++ movitz/compiler.lisp Mon Jan 19 14:21:08 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.3 2004/01/16 19:06:40 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.4 2004/01/19 19:21:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -867,7 +867,8 @@ load-priority (delete-file-p nil)) (handler-bind - (#+ignore ((or error warning) (lambda (c) + (#+sbcl (sb-ext:defconstant-uneql #'continue) + #+ignore ((or error warning) (lambda (c) (declare (ignore c)) (format *error-output* "~&;; In file ~S:" path)))) (unwind-protect

1 0

19 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv7968/losp/x86-pc Modified Files: all.lisp cmos.lisp debugger.lisp dp8390.lisp interrupt.lisp io-space.lisp keyboard.lisp memory.lisp ne2k.lisp package.lisp pic8259.lisp pit8253.lisp textmode-console.lisp textmode.lisp vga.lisp Log Message: Many minor edits. Removed non-ASCII characters etc. Date: Mon Jan 19 06:23:52 2004 Author: ffjeld Index: movitz/losp/x86-pc/all.lisp diff -u movitz/losp/x86-pc/all.lisp:1.2 movitz/losp/x86-pc/all.lisp:1.3 --- movitz/losp/x86-pc/all.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/all.lisp Mon Jan 19 06:23:51 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Sep 27 21:14:56 2001 ;;;; -;;;; $Id: all.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: all.lisp,v 1.3 2004/01/19 11:23:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/cmos.lisp diff -u movitz/losp/x86-pc/cmos.lisp:1.2 movitz/losp/x86-pc/cmos.lisp:1.3 --- movitz/losp/x86-pc/cmos.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/cmos.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2002, 2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 30 12:23:02 2002 ;;;; -;;;; $Id: cmos.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: cmos.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.1.1.1 movitz/losp/x86-pc/debugger.lisp:1.2 --- movitz/losp/x86-pc/debugger.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/debugger.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.2 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/dp8390.lisp diff -u movitz/losp/x86-pc/dp8390.lisp:1.2 movitz/losp/x86-pc/dp8390.lisp:1.3 --- movitz/losp/x86-pc/dp8390.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/dp8390.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -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.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: dp8390.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/interrupt.lisp diff -u movitz/losp/x86-pc/interrupt.lisp:1.2 movitz/losp/x86-pc/interrupt.lisp:1.3 --- movitz/losp/x86-pc/interrupt.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/interrupt.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri May 4 18:08:50 2001 ;;;; -;;;; $Id: interrupt.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/io-space.lisp diff -u movitz/losp/x86-pc/io-space.lisp:1.1.1.1 movitz/losp/x86-pc/io-space.lisp:1.2 --- movitz/losp/x86-pc/io-space.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/io-space.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2003-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue May 6 10:50:36 2003 ;;;; -;;;; $Id: io-space.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: io-space.lisp,v 1.2 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/keyboard.lisp diff -u movitz/losp/x86-pc/keyboard.lisp:1.1.1.1 movitz/losp/x86-pc/keyboard.lisp:1.2 --- movitz/losp/x86-pc/keyboard.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/x86-pc/keyboard.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Sep 24 16:04:12 2001 ;;;; -;;;; $Id: keyboard.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: keyboard.lisp,v 1.2 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/memory.lisp diff -u movitz/losp/x86-pc/memory.lisp:1.2 movitz/losp/x86-pc/memory.lisp:1.3 --- movitz/losp/x86-pc/memory.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/memory.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2002, 2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Oct 11 16:32:11 2001 ;;;; -;;;; $Id: memory.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: memory.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/ne2k.lisp diff -u movitz/losp/x86-pc/ne2k.lisp:1.3 movitz/losp/x86-pc/ne2k.lisp:1.4 --- movitz/losp/x86-pc/ne2k.lisp:1.3 Thu Jan 15 12:43:28 2004 +++ movitz/losp/x86-pc/ne2k.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 17 15:16:00 2002 ;;;; -;;;; $Id: ne2k.lisp,v 1.3 2004/01/15 17:43:28 ffjeld Exp $ +;;;; $Id: ne2k.lisp,v 1.4 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/package.lisp diff -u movitz/losp/x86-pc/package.lisp:1.2 movitz/losp/x86-pc/package.lisp:1.3 --- movitz/losp/x86-pc/package.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/package.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 20:30:28 2001 ;;;; -;;;; $Id: package.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: package.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/pic8259.lisp diff -u movitz/losp/x86-pc/pic8259.lisp:1.2 movitz/losp/x86-pc/pic8259.lisp:1.3 --- movitz/losp/x86-pc/pic8259.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/pic8259.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue May 22 15:23:01 2001 ;;;; -;;;; $Id: pic8259.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: pic8259.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/pit8253.lisp diff -u movitz/losp/x86-pc/pit8253.lisp:1.2 movitz/losp/x86-pc/pit8253.lisp:1.3 --- movitz/losp/x86-pc/pit8253.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/pit8253.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2002, 2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jan 15 11:30:55 2002 ;;;; -;;;; $Id: pit8253.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: pit8253.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/textmode-console.lisp diff -u movitz/losp/x86-pc/textmode-console.lisp:1.2 movitz/losp/x86-pc/textmode-console.lisp:1.3 --- movitz/losp/x86-pc/textmode-console.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/textmode-console.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2003-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jul 8 15:13:24 2003 ;;;; -;;;; $Id: textmode-console.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: textmode-console.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/textmode.lisp diff -u movitz/losp/x86-pc/textmode.lisp:1.2 movitz/losp/x86-pc/textmode.lisp:1.3 --- movitz/losp/x86-pc/textmode.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/textmode.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001,2000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: textmode.lisp ;;;; Description: A primitive 80x25 text-mode console driver. @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 9 15:38:56 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: textmode.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: textmode.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/x86-pc/vga.lisp diff -u movitz/losp/x86-pc/vga.lisp:1.2 movitz/losp/x86-pc/vga.lisp:1.3 --- movitz/losp/x86-pc/vga.lisp:1.2 Thu Jan 15 12:13:53 2004 +++ movitz/losp/x86-pc/vga.lisp Mon Jan 19 06:23:52 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 25 14:08:20 2001 ;;;; -;;;; $Id: vga.lisp,v 1.2 2004/01/15 17:13:53 ffjeld Exp $ +;;;; $Id: vga.lisp,v 1.3 2004/01/19 11:23:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

1 0

19 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv7968/losp/muerte Modified Files: arrays.lisp basic-functions.lisp basic-macros.lisp characters.lisp common-lisp.lisp conditions.lisp cons.lisp cpu-id.lisp defstruct.lisp environment.lisp equalp.lisp error.lisp eval.lisp format.lisp functions.lisp hash-tables.lisp inspect.lisp integers.lisp io-port.lisp lists.lisp los-closette-compiler.lisp los-closette.lisp memref.lisp more-macros.lisp packages.lisp primitive-functions.lisp print.lisp read.lisp restarts.lisp segments.lisp sequences.lisp setf.lisp simple-streams.lisp streams.lisp strings.lisp symbols.lisp typep.lisp Log Message: Many minor edits. Removed non-ASCII characters etc. Date: Mon Jan 19 06:23:47 2004 Author: ffjeld Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.1.1.1 movitz/losp/muerte/arrays.lisp:1.2 --- movitz/losp/muerte/arrays.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/arrays.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sun Feb 11 23:14:04 2001 ;;;; -;;;; $Id: arrays.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/basic-functions.lisp diff -u movitz/losp/muerte/basic-functions.lisp:1.1.1.1 movitz/losp/muerte/basic-functions.lisp:1.2 --- movitz/losp/muerte/basic-functions.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/basic-functions.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 4 18:41:57 2001 ;;;; -;;;; $Id: basic-functions.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: basic-functions.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/basic-macros.lisp diff -u movitz/losp/muerte/basic-macros.lisp:1.1.1.1 movitz/losp/muerte/basic-macros.lisp:1.2 --- movitz/losp/muerte/basic-macros.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/basic-macros.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 20012000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: basic-macros.lisp ;;;; Description: @@ -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.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: basic-macros.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/characters.lisp diff -u movitz/losp/muerte/characters.lisp:1.1.1.1 movitz/losp/muerte/characters.lisp:1.2 --- movitz/losp/muerte/characters.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/characters.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Feb 5 19:05:01 2001 ;;;; -;;;; $Id: characters.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: characters.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/common-lisp.lisp diff -u movitz/losp/muerte/common-lisp.lisp:1.1.1.1 movitz/losp/muerte/common-lisp.lisp:1.2 --- movitz/losp/muerte/common-lisp.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/common-lisp.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 20012000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: common-lisp.lisp ;;;; Description: @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:41:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: common-lisp.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: common-lisp.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/conditions.lisp diff -u movitz/losp/muerte/conditions.lisp:1.1.1.1 movitz/losp/muerte/conditions.lisp:1.2 --- movitz/losp/muerte/conditions.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/conditions.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Nov 20 15:47:04 2002 ;;;; -;;;; $Id: conditions.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: conditions.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/cons.lisp diff -u movitz/losp/muerte/cons.lisp:1.1.1.1 movitz/losp/muerte/cons.lisp:1.2 --- movitz/losp/muerte/cons.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/cons.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 20012000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: cons.lisp ;;;; Description: @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 15:25:45 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: cons.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: cons.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/cpu-id.lisp diff -u movitz/losp/muerte/cpu-id.lisp:1.1.1.1 movitz/losp/muerte/cpu-id.lisp:1.2 --- movitz/losp/muerte/cpu-id.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/cpu-id.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Apr 15 22:47:13 2002 ;;;; -;;;; $Id: cpu-id.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: cpu-id.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/defstruct.lisp diff -u movitz/losp/muerte/defstruct.lisp:1.1.1.1 movitz/losp/muerte/defstruct.lisp:1.2 --- movitz/losp/muerte/defstruct.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/defstruct.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: defstruct.lisp ;;;; Description: @@ -9,7 +9,7 @@ ;;;; Created at: Mon Jan 22 13:10:59 2001 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: defstruct.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: defstruct.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/environment.lisp diff -u movitz/losp/muerte/environment.lisp:1.1.1.1 movitz/losp/muerte/environment.lisp:1.2 --- movitz/losp/muerte/environment.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/environment.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -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.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/equalp.lisp diff -u movitz/losp/muerte/equalp.lisp:1.1.1.1 movitz/losp/muerte/equalp.lisp:1.2 --- movitz/losp/muerte/equalp.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/equalp.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2003-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Mar 13 17:09:08 2001 ;;;; -;;;; $Id: equalp.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: equalp.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/error.lisp diff -u movitz/losp/muerte/error.lisp:1.1.1.1 movitz/losp/muerte/error.lisp:1.2 --- movitz/losp/muerte/error.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/error.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -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.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: error.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/eval.lisp diff -u movitz/losp/muerte/eval.lisp:1.1.1.1 movitz/losp/muerte/eval.lisp:1.2 --- movitz/losp/muerte/eval.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/eval.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 19 21:15:12 2001 ;;;; -;;;; $Id: eval.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/format.lisp diff -u movitz/losp/muerte/format.lisp:1.1.1.1 movitz/losp/muerte/format.lisp:1.2 --- movitz/losp/muerte/format.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/format.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -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.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: format.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/functions.lisp diff -u movitz/losp/muerte/functions.lisp:1.1.1.1 movitz/losp/muerte/functions.lisp:1.2 --- movitz/losp/muerte/functions.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/functions.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Mar 12 22:58:54 2002 ;;;; -;;;; $Id: functions.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: functions.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/hash-tables.lisp diff -u movitz/losp/muerte/hash-tables.lisp:1.1.1.1 movitz/losp/muerte/hash-tables.lisp:1.2 --- movitz/losp/muerte/hash-tables.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/hash-tables.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -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.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: hash-tables.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/inspect.lisp diff -u movitz/losp/muerte/inspect.lisp:1.1.1.1 movitz/losp/muerte/inspect.lisp:1.2 --- movitz/losp/muerte/inspect.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/inspect.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2003-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 24 09:50:41 2003 ;;;; -;;;; $Id: inspect.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: inspect.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.1.1.1 movitz/losp/muerte/integers.lisp:1.2 --- movitz/losp/muerte/integers.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/integers.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 20012000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: integers.lisp ;;;; Description: @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.1.1.1 movitz/losp/muerte/io-port.lisp:1.2 --- movitz/losp/muerte/io-port.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/io-port.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/lists.lisp diff -u movitz/losp/muerte/lists.lisp:1.1.1.1 movitz/losp/muerte/lists.lisp:1.2 --- movitz/losp/muerte/lists.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/lists.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 20012000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: lists.lisp ;;;; Description: @@ -9,7 +9,7 @@ ;;;; Created at: Tue Dec 5 18:40:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: lists.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: lists.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/los-closette-compiler.lisp diff -u movitz/losp/muerte/los-closette-compiler.lisp:1.1.1.1 movitz/losp/muerte/los-closette-compiler.lisp:1.2 --- movitz/losp/muerte/los-closette-compiler.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/los-closette-compiler.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -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.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: los-closette-compiler.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/los-closette.lisp diff -u movitz/losp/muerte/los-closette.lisp:1.1.1.1 movitz/losp/muerte/los-closette.lisp:1.2 --- movitz/losp/muerte/los-closette.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/los-closette.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/memref.lisp diff -u movitz/losp/muerte/memref.lisp:1.1.1.1 movitz/losp/muerte/memref.lisp:1.2 --- movitz/losp/muerte/memref.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/memref.lisp Mon Jan 19 06:23:46 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Mar 6 21:25:49 2001 ;;;; -;;;; $Id: memref.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: memref.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.1.1.1 movitz/losp/muerte/more-macros.lisp:1.2 --- movitz/losp/muerte/more-macros.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/more-macros.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/packages.lisp diff -u movitz/losp/muerte/packages.lisp:1.1.1.1 movitz/losp/muerte/packages.lisp:1.2 --- movitz/losp/muerte/packages.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/packages.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2002-2004 -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Aug 30 15:19:43 2001 ;;;; -;;;; $Id: packages.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/primitive-functions.lisp diff -u movitz/losp/muerte/primitive-functions.lisp:1.1.1.1 movitz/losp/muerte/primitive-functions.lisp:1.2 --- movitz/losp/muerte/primitive-functions.lisp:1.1.1.1 Tue Jan 13 06:05:05 2004 +++ movitz/losp/muerte/primitive-functions.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 2 21:02:18 2001 ;;;; -;;;; $Id: primitive-functions.lisp,v 1.1.1.1 2004/01/13 11:05:05 ffjeld Exp $ +;;;; $Id: primitive-functions.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/print.lisp diff -u movitz/losp/muerte/print.lisp:1.1.1.1 movitz/losp/muerte/print.lisp:1.2 --- movitz/losp/muerte/print.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/print.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -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.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/read.lisp diff -u movitz/losp/muerte/read.lisp:1.1.1.1 movitz/losp/muerte/read.lisp:1.2 --- movitz/losp/muerte/read.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/read.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Oct 17 21:50:42 2001 ;;;; -;;;; $Id: read.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: read.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/restarts.lisp diff -u movitz/losp/muerte/restarts.lisp:1.1.1.1 movitz/losp/muerte/restarts.lisp:1.2 --- movitz/losp/muerte/restarts.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/restarts.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2003-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Oct 28 09:27:13 2003 ;;;; -;;;; $Id: restarts.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: restarts.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/segments.lisp diff -u movitz/losp/muerte/segments.lisp:1.1.1.1 movitz/losp/muerte/segments.lisp:1.2 --- movitz/losp/muerte/segments.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/segments.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2003-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu May 8 14:25:06 2003 ;;;; -;;;; $Id: segments.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: segments.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.1.1.1 movitz/losp/muerte/sequences.lisp:1.2 --- movitz/losp/muerte/sequences.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/sequences.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 11 14:19:23 2001 ;;;; -;;;; $Id: sequences.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/setf.lisp diff -u movitz/losp/muerte/setf.lisp:1.1.1.1 movitz/losp/muerte/setf.lisp:1.2 --- movitz/losp/muerte/setf.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/setf.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Feb 8 20:43:20 2001 ;;;; -;;;; $Id: setf.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: setf.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/simple-streams.lisp diff -u movitz/losp/muerte/simple-streams.lisp:1.1.1.1 movitz/losp/muerte/simple-streams.lisp:1.2 --- movitz/losp/muerte/simple-streams.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/simple-streams.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2003-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Aug 29 13:39:43 2003 ;;;; -;;;; $Id: simple-streams.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: simple-streams.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/streams.lisp diff -u movitz/losp/muerte/streams.lisp:1.1.1.1 movitz/losp/muerte/streams.lisp:1.2 --- movitz/losp/muerte/streams.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/streams.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001, 2003-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Jun 30 14:33:15 2003 ;;;; -;;;; $Id: streams.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: streams.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/strings.lisp diff -u movitz/losp/muerte/strings.lisp:1.1.1.1 movitz/losp/muerte/strings.lisp:1.2 --- movitz/losp/muerte/strings.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/strings.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Oct 19 17:05:25 2001 ;;;; -;;;; $Id: strings.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: strings.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/symbols.lisp diff -u movitz/losp/muerte/symbols.lisp:1.1.1.1 movitz/losp/muerte/symbols.lisp:1.2 --- movitz/losp/muerte/symbols.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/symbols.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001-2004, -;;;; Department of Computer Science, University of Tromsø, Norway. +;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Sep 4 23:55:41 2001 ;;;; -;;;; $Id: symbols.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: symbols.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/muerte/typep.lisp diff -u movitz/losp/muerte/typep.lisp:1.1.1.1 movitz/losp/muerte/typep.lisp:1.2 --- movitz/losp/muerte/typep.lisp:1.1.1.1 Tue Jan 13 06:05:06 2004 +++ movitz/losp/muerte/typep.lisp Mon Jan 19 06:23:47 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 20012000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: typep.lisp ;;;; Description: Implements TYPEP and TYPECASE. @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 11:07:53 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: typep.lisp,v 1.1.1.1 2004/01/13 11:05:06 ffjeld Exp $ +;;;; $Id: typep.lisp,v 1.2 2004/01/19 11:23:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

1 0