movitz-cvs January 2004

movitz-cvs@common-lisp.net

2 participants
74 discussions

[movitz-cvs] CVS update: movitz/losp/lib/net/arp.lisp movitz/losp/lib/net/ethernet.lisp movitz/losp/lib/net/ip4.lisp movitz/losp/lib/net/ip6.lisp
by Frode Vatvedt Fjeld 19 Jan '04

19 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/lib/net In directory common-lisp.net:/tmp/cvs-serv7968/losp/lib/net Modified Files: arp.lisp ethernet.lisp ip4.lisp ip6.lisp Log Message: Many minor edits. Removed non-ASCII characters etc. Date: Mon Jan 19 06:23:46 2004 Author: ffjeld Index: movitz/losp/lib/net/arp.lisp diff -u movitz/losp/lib/net/arp.lisp:1.2 movitz/losp/lib/net/arp.lisp:1.3 --- movitz/losp/lib/net/arp.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/net/arp.lisp Mon Jan 19 06:23:45 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 Mar 20 15:01:15 2003 ;;;; -;;;; $Id: arp.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: arp.lisp,v 1.3 2004/01/19 11:23:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/net/ethernet.lisp diff -u movitz/losp/lib/net/ethernet.lisp:1.2 movitz/losp/lib/net/ethernet.lisp:1.3 --- movitz/losp/lib/net/ethernet.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/net/ethernet.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 17 15:25:31 2002 ;;;; -;;;; $Id: ethernet.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: ethernet.lisp,v 1.3 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/net/ip4.lisp diff -u movitz/losp/lib/net/ip4.lisp:1.2 movitz/losp/lib/net/ip4.lisp:1.3 --- movitz/losp/lib/net/ip4.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/net/ip4.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: Wed Apr 30 13:52:57 2003 ;;;; -;;;; $Id: ip4.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: ip4.lisp,v 1.3 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/net/ip6.lisp diff -u movitz/losp/lib/net/ip6.lisp:1.2 movitz/losp/lib/net/ip6.lisp:1.3 --- movitz/losp/lib/net/ip6.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/net/ip6.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 14 17:25:31 2001 ;;;; -;;;; $Id: ip6.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: ip6.lisp,v 1.3 2004/01/19 11:23:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

1 0

[movitz-cvs] CVS update: movitz/losp/lib/bcd.lisp movitz/losp/lib/console.lisp movitz/losp/lib/malloc-init.lisp movitz/losp/lib/misc.lisp movitz/losp/lib/named-integers.lisp movitz/losp/lib/package.lisp movitz/losp/lib/readline.lisp movitz/losp/lib/repl.lisp movitz/losp/lib/toplevel.lisp
by Frode Vatvedt Fjeld 19 Jan '04

19 Jan '04

Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv7968/losp/lib Modified Files: bcd.lisp console.lisp malloc-init.lisp misc.lisp named-integers.lisp package.lisp readline.lisp repl.lisp toplevel.lisp Log Message: Many minor edits. Removed non-ASCII characters etc. Date: Mon Jan 19 06:23:44 2004 Author: ffjeld Index: movitz/losp/lib/bcd.lisp diff -u movitz/losp/lib/bcd.lisp:1.2 movitz/losp/lib/bcd.lisp:1.3 --- movitz/losp/lib/bcd.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/bcd.lisp Mon Jan 19 06:23:44 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 14:03:57 2002 ;;;; -;;;; $Id: bcd.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: bcd.lisp,v 1.3 2004/01/19 11:23:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/console.lisp diff -u movitz/losp/lib/console.lisp:1.3 movitz/losp/lib/console.lisp:1.4 --- movitz/losp/lib/console.lisp:1.3 Fri Jan 16 09:51:59 2004 +++ movitz/losp/lib/console.lisp Mon Jan 19 06:23:44 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 Aug 14 18:14:16 2003 ;;;; -;;;; $Id: console.lisp,v 1.3 2004/01/16 14:51:59 ffjeld Exp $ +;;;; $Id: console.lisp,v 1.4 2004/01/19 11:23:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/malloc-init.lisp diff -u movitz/losp/lib/malloc-init.lisp:1.1.1.1 movitz/losp/lib/malloc-init.lisp:1.2 --- movitz/losp/lib/malloc-init.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/lib/malloc-init.lisp Mon Jan 19 06:23:44 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 Jan 9 15:57:22 2002 ;;;; -;;;; $Id: malloc-init.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: malloc-init.lisp,v 1.2 2004/01/19 11:23:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/misc.lisp diff -u movitz/losp/lib/misc.lisp:1.2 movitz/losp/lib/misc.lisp:1.3 --- movitz/losp/lib/misc.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/misc.lisp Mon Jan 19 06:23:44 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 May 12 17:13:31 2003 ;;;; -;;;; $Id: misc.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: misc.lisp,v 1.3 2004/01/19 11:23:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/named-integers.lisp diff -u movitz/losp/lib/named-integers.lisp:1.2 movitz/losp/lib/named-integers.lisp:1.3 --- movitz/losp/lib/named-integers.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/named-integers.lisp Mon Jan 19 06:23:44 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 Jan 4 16:13:46 2002 ;;;; -;;;; $Id: named-integers.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: named-integers.lisp,v 1.3 2004/01/19 11:23:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/package.lisp diff -u movitz/losp/lib/package.lisp:1.2 movitz/losp/lib/package.lisp:1.3 --- movitz/losp/lib/package.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/package.lisp Mon Jan 19 06:23:44 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 Sep 27 17:24:11 2002 ;;;; -;;;; $Id: package.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: package.lisp,v 1.3 2004/01/19 11:23:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/readline.lisp diff -u movitz/losp/lib/readline.lisp:1.2 movitz/losp/lib/readline.lisp:1.3 --- movitz/losp/lib/readline.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/readline.lisp Mon Jan 19 06:23:44 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 2 13:58:58 2001 ;;;; -;;;; $Id: readline.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: readline.lisp,v 1.3 2004/01/19 11:23:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.2 movitz/losp/lib/repl.lisp:1.3 --- movitz/losp/lib/repl.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/repl.lisp Mon Jan 19 06:23:44 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: Wed Mar 19 14:58:12 2003 ;;;; -;;;; $Id: repl.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.3 2004/01/19 11:23:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/lib/toplevel.lisp diff -u movitz/losp/lib/toplevel.lisp:1.2 movitz/losp/lib/toplevel.lisp:1.3 --- movitz/losp/lib/toplevel.lisp:1.2 Thu Jan 15 12:34:49 2004 +++ movitz/losp/lib/toplevel.lisp Mon Jan 19 06:23:44 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 5 15:56:26 2002 ;;;; -;;;; $Id: toplevel.lisp,v 1.2 2004/01/15 17:34:49 ffjeld Exp $ +;;;; $Id: toplevel.lisp,v 1.3 2004/01/19 11:23:44 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

1 0

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

19 Jan '04

Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv7968/losp Modified Files: common-lisp.lisp los0.lisp Log Message: Many minor edits. Removed non-ASCII characters etc. Date: Mon Jan 19 06:23:43 2004 Author: ffjeld Index: movitz/losp/common-lisp.lisp diff -u movitz/losp/common-lisp.lisp:1.1.1.1 movitz/losp/common-lisp.lisp:1.2 --- movitz/losp/common-lisp.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/common-lisp.lisp Mon Jan 19 06:23:43 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 20012000, 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: Tue Dec 5 18:33:01 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: common-lisp.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: common-lisp.lisp,v 1.2 2004/01/19 11:23:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.1.1.1 movitz/losp/los0.lisp:1.2 --- movitz/losp/los0.lisp:1.1.1.1 Tue Jan 13 06:05:04 2004 +++ movitz/losp/los0.lisp Mon Jan 19 06:23:43 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: los0.lisp ;;;; Description: Top-level initialization file. @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.1.1.1 2004/01/13 11:05:04 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.2 2004/01/19 11:23:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -19,6 +19,8 @@ (require :x86-pc/all) (require :x86-pc/io-space) (require :x86-pc/ne2k) +(require :x86-pc/floppy) + (require :lib/readline) (require :lib/toplevel) (require :lib/net/ip6) @@ -37,6 +39,12 @@ (in-package muerte.init) (declaim (special muerte::*multiboot-data*)) + +(defun test-floppy () + (muerte.x86-pc::fd-start-disk) ; to initialize the controller and spin the drive up. + (muerte.x86-pc::fd-cmd-seek 70) ; to seek to track 70. + (setf (muerte.x86-pc::fd-motor) nil)) ; to turn the drive and controller off. + (defun alist-get-expand (alist key) (let (cons)

1 0

[movitz-cvs] CVS update: movitz/doc/ChangeLog
by Frode Vatvedt Fjeld 19 Jan '04

19 Jan '04

Update of /project/movitz/cvsroot/movitz/doc In directory common-lisp.net:/tmp/cvs-serv7968/doc Modified Files: ChangeLog Log Message: Many minor edits. Removed non-ASCII characters etc. Date: Mon Jan 19 06:23:43 2004 Author: ffjeld Index: movitz/doc/ChangeLog diff -u movitz/doc/ChangeLog:1.1.1.1 movitz/doc/ChangeLog:1.2 --- movitz/doc/ChangeLog:1.1.1.1 Tue Jan 13 06:05:01 2004 +++ movitz/doc/ChangeLog Mon Jan 19 06:23:43 2004 @@ -1,3 +1,7 @@ +2004-01-19 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> + + * Fixed the bootloader slightly so it should now work with VMWare. + 2004-01-12 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> * Fixed the floppy bootloader so that it will work with BIOSes

1 0

[movitz-cvs] CVS update: movitz/assembly-syntax.lisp movitz/browser.lisp movitz/compiler-protocol.lisp movitz/compiler-types.lisp movitz/eval.lisp movitz/image.lisp movitz/load.lisp movitz/los0-image movitz/multiboot.lisp movitz/parse.lisp movitz/procfs-image.lisp movitz/special-operators-cl.lisp movitz/storage-types.lisp movitz/stream-image.lisp movitz/bootblock-id.txt
by Frode Vatvedt Fjeld 19 Jan '04

19 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv7968 Modified Files: assembly-syntax.lisp browser.lisp compiler-protocol.lisp compiler-types.lisp eval.lisp image.lisp load.lisp los0-image multiboot.lisp parse.lisp procfs-image.lisp special-operators-cl.lisp storage-types.lisp stream-image.lisp Removed Files: bootblock-id.txt Log Message: Many minor edits. Removed non-ASCII characters etc. Date: Mon Jan 19 06:23:41 2004 Author: ffjeld Index: movitz/assembly-syntax.lisp diff -u movitz/assembly-syntax.lisp:1.1.1.1 movitz/assembly-syntax.lisp:1.2 --- movitz/assembly-syntax.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/assembly-syntax.lisp Mon Jan 19 06:23:41 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 20012000, 2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: assembly-syntax.lisp ;;;; Description: @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 9 17:34:37 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: assembly-syntax.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: assembly-syntax.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/browser.lisp diff -u movitz/browser.lisp:1.1.1.1 movitz/browser.lisp:1.2 --- movitz/browser.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/browser.lisp Mon Jan 19 06:23:41 2004 @@ -1,16 +1,16 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; 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. ;;;; ;;;; Filename: browser.lisp -;;;; Description: +;;;; Description: A CLIM browser/inspector of Movitz images. ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Jun 14 15:14:35 2001 ;;;; -;;;; $Id: browser.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: browser.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/compiler-protocol.lisp diff -u movitz/compiler-protocol.lisp:1.1.1.1 movitz/compiler-protocol.lisp:1.2 --- movitz/compiler-protocol.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/compiler-protocol.lisp Mon Jan 19 06:23:41 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 10 13:02:03 2001 ;;;; -;;;; $Id: compiler-protocol.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: compiler-protocol.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/compiler-types.lisp diff -u movitz/compiler-types.lisp:1.1.1.1 movitz/compiler-types.lisp:1.2 --- movitz/compiler-types.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/compiler-types.lisp Mon Jan 19 06:23:41 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: Wed Sep 10 00:40:07 2003 ;;;; -;;;; $Id: compiler-types.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: compiler-types.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/eval.lisp diff -u movitz/eval.lisp:1.1.1.1 movitz/eval.lisp:1.2 --- movitz/eval.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/eval.lisp Mon Jan 19 06:23:41 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: eval.lisp ;;;; Description: @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 2 17:45:05 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: eval.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: eval.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/image.lisp diff -u movitz/image.lisp:1.2 movitz/image.lisp:1.3 --- movitz/image.lisp:1.2 Thu Jan 15 12:36:19 2004 +++ movitz/image.lisp Mon Jan 19 06:23:41 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: image.lisp ;;;; Description: Construction of LispOS images. @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.2 2004/01/15 17:36:19 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.3 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/load.lisp diff -u movitz/load.lisp:1.5 movitz/load.lisp:1.6 --- movitz/load.lisp:1.5 Fri Jan 16 13:22:37 2004 +++ movitz/load.lisp Mon Jan 19 06:23:41 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2003-2004, -;;;; Department of Computer Science, University of Tromsoe, 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 Jan 15 18:40:58 2004 ;;;; -;;;; $Id: load.lisp,v 1.5 2004/01/16 18:22:37 ffjeld Exp $ +;;;; $Id: load.lisp,v 1.6 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -38,6 +38,22 @@ (setf (system::gsgc-parameter :generation-spread) 12) (sys:resize-areas :new (* 16 1024 1024))) +#+clisp (load "packages") +#+clisp (defconstant movitz::&all 'movitz::&all) ; CLisp has this wonderful bug.. +#+clisp (defconstant movitz::&code 'movitz::&code) +#+clisp (defconstant movitz::&form 'movitz::&form) +#+clisp (defconstant movitz::&returns 'movitz::&returns) +#+clisp (defconstant movitz::&functional-p 'movitz::&functional-p) +#+clisp (defconstant movitz::&modifies 'movitz::&modifies) +#+clisp (defconstant movitz::&type 'movitz::&type) +#+clisp (defconstant movitz::&final-form 'movitz::&final-form) +#+clisp (defconstant movitz::&funobj 'movitz::&funobj) +#+clisp (defconstant movitz::&top-level-p 'movitz::&top-level-p) +#+clisp (defconstant movitz::&result-mode 'movitz::&result-mode) +#+clisp (defconstant movitz::&env 'movitz::&env) +#+clisp (defconstant movitz::&producer 'movitz::&producer) + + #-allegro (do () (nil) (with-simple-restart (retry "Retry loading Movitz") (return @@ -47,8 +63,8 @@ (do () (nil) (with-simple-restart (retry "Retry loading ~S" path) (return - (load (compile-file (make-pathname :name path :type "lisp") - :print nil)))))) + (load (or (compile-file path :print nil) + (error "Compile-file of ~S failed?" path))))))) '("packages" "movitz" "parse" Index: movitz/los0-image Index: movitz/multiboot.lisp diff -u movitz/multiboot.lisp:1.1.1.1 movitz/multiboot.lisp:1.2 --- movitz/multiboot.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/multiboot.lisp Mon Jan 19 06:23:41 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: Wed Jun 12 12:14:12 2002 ;;;; -;;;; $Id: multiboot.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: multiboot.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/parse.lisp diff -u movitz/parse.lisp:1.2 movitz/parse.lisp:1.3 --- movitz/parse.lisp:1.2 Thu Jan 15 11:13:00 2004 +++ movitz/parse.lisp Mon Jan 19 06:23:41 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: parse.lisp ;;;; Description: @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 24 16:49:17 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: parse.lisp,v 1.2 2004/01/15 16:13:00 ffjeld Exp $ +;;;; $Id: parse.lisp,v 1.3 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/procfs-image.lisp diff -u movitz/procfs-image.lisp:1.1.1.1 movitz/procfs-image.lisp:1.2 --- movitz/procfs-image.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/procfs-image.lisp Mon Jan 19 06:23:41 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 Aug 24 11:39:37 2001 ;;;; -;;;; $Id: procfs-image.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: procfs-image.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/special-operators-cl.lisp diff -u movitz/special-operators-cl.lisp:1.2 movitz/special-operators-cl.lisp:1.3 --- movitz/special-operators-cl.lisp:1.2 Thu Jan 15 11:40:33 2004 +++ movitz/special-operators-cl.lisp Mon Jan 19 06:23:41 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 20012000, 2002-2004, -;;;; Department of Computer Science, University of TromsÃž, Norway +;;;; Copyright (C) 2000-2004, +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: special-operators-cl.lisp ;;;; Description: Special operators in the COMMON-LISP package. @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 24 16:31:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: special-operators-cl.lisp,v 1.2 2004/01/15 16:40:33 ffjeld Exp $ +;;;; $Id: special-operators-cl.lisp,v 1.3 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/storage-types.lisp diff -u movitz/storage-types.lisp:1.1.1.1 movitz/storage-types.lisp:1.2 --- movitz/storage-types.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/storage-types.lisp Mon Jan 19 06:23:41 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2000-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: storage-types.lisp ;;;; Description: Physical storage structures for Movitz objects. @@ -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.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: storage-types.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ Index: movitz/stream-image.lisp diff -u movitz/stream-image.lisp:1.1.1.1 movitz/stream-image.lisp:1.2 --- movitz/stream-image.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/stream-image.lisp Mon Jan 19 06:23:41 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 Aug 27 14:46:50 2001 ;;;; -;;;; $Id: stream-image.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: stream-image.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

1 0

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

19 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv15076 Modified Files: bootblock.lisp Log Message: Bootloader now doesn't load past the image. On physical floppies this makes no difference, but for VMWare and possibly also VirtualPC it does. Date: Mon Jan 19 05:36:13 2004 Author: ffjeld Index: movitz/bootblock.lisp diff -u movitz/bootblock.lisp:1.5 movitz/bootblock.lisp:1.6 --- movitz/bootblock.lisp:1.5 Fri Jan 16 10:40:35 2004 +++ movitz/bootblock.lisp Mon Jan 19 05:36:12 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Oct 9 20:47:19 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: bootblock.lisp,v 1.5 2004/01/16 15:40:35 ffjeld Exp $ +;;;; $Id: bootblock.lisp,v 1.6 2004/01/19 10:36:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -118,7 +118,7 @@ ;; Read sectors into memory ;; - (:movw ,(+ 1 skip-sectors) (:bp ,+linear-sector+)) + (:movw ,first-sector (:bp ,+linear-sector+)) (:movl ,load-address (:bp ,+destination+)) read-loop @@ -143,6 +143,12 @@ (:subb :cl :al) ; number of sectors (rest of track) (:incb :cl) (:addw :ax (:bp ,+linear-sector+)) ; update read pointer + (:movw (:bp ,+linear-sector+) :bx) ; subtract some if it's the last track. + (:subw ,last-sector :bx) + (:jc 'subtract-zero-sectors) + (:subw :bx :ax) + (:jz 'read-done) + subtract-zero-sectors (:movb 2 :ah) (:movw ,read-buffer-segment :bx)

1 0

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

16 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv17889 Modified Files: environment.lisp Log Message: Rewrote some really poorly written loop forms, and removed some dead code. Date: Fri Jan 16 14:45:36 2004 Author: ffjeld Index: movitz/environment.lisp diff -u movitz/environment.lisp:1.1.1.1 movitz/environment.lisp:1.2 --- movitz/environment.lisp:1.1.1.1 Tue Jan 13 06:04:59 2004 +++ movitz/environment.lisp Fri Jan 16 14:45:36 2004 @@ -1,7 +1,7 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001,2000, 2002-2004 -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Copyright (C) 2000-2004 +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: environment.lisp ;;;; Description: Compiler environment. @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 3 11:40:15 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: environment.lisp,v 1.1.1.1 2004/01/13 11:04:59 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.2 2004/01/16 19:45:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -230,22 +230,11 @@ (defmethod num-dynamic-slots ((x unwind-protect-env)) 1) -(defclass simple-dynamic-env (with-things-on-stack-env) - () +(defclass simple-dynamic-env (with-things-on-stack-env) () (:documentation "An environment that installs one dynamic-env.")) (defmethod num-dynamic-slots ((x simple-dynamic-env)) 1) - -;;;(defmethod print-object ((object movitz-environment) stream) -;;; (print-unreadable-object (object stream) -;;; (maphash #'(lambda (name binding) -;;; (format stream " [~A: ~A]" -;;; name -;;; (and (slot-boundp binding 'location) -;;; (slot-value binding 'location)))) -;;; (movitz-environment-bindings object)))) - (defparameter *movitz-macroexpand-hook* #'(lambda (macro-function form environment) ;;; (warn "Expanding form ~W" form) @@ -294,23 +283,6 @@ (define-symbol-macro *movitz-global-environment* (image-global-environment *image*)) -;;;(defun movitz-environment-add-binding (environment variable binding &key replace) -;;; (warn "deprecated movitz-environment-add-binding called for ~S => ~S." variable binding) -;;; (assert (or (not (slot-boundp binding 'env)) -;;; (eq (binding-env binding) environment)) -;;; (binding) -;;; "Can't move a binding between environments!") -;;; (let ((bindings (movitz-environment-bindings environment))) -;;; (cond -;;; ((assoc variable bindings) -;;; (assert replace () -;;; (error "Variable ~S is multiple bound." variable)) -;;; (setf (cdr (assoc variable bindings)) binding)) -;;; (t (push (cons variable binding) -;;; (movitz-environment-bindings environment))))) -;;; (setf (binding-env binding) environment) -;;; (values)) - (defun movitz-env-add-binding (env binding &optional (variable (binding-name binding))) (check-type binding binding) (check-type variable symbol "a variable name") @@ -443,9 +415,10 @@ (defun movitz-env-get (symbol indicator &optional (default nil) (environment nil) (recurse-p t)) - (loop for env = (or environment *movitz-global-environment*) then (and recurse-p (movitz-environment-uplink env)) + (loop for env = (or environment *movitz-global-environment*) + then (and recurse-p (movitz-environment-uplink env)) + for plist = (and env (getf (movitz-environment-plists env) symbol)) while env - for plist = (getf (movitz-environment-plists env) symbol) do (let ((val (getf plist indicator '#0=#:not-found))) (unless (eq val '#0#) (return (values val env)))) @@ -523,8 +496,8 @@ (macro-binding-expander binding))) (loop for env = (or environment *movitz-global-environment*) then (movitz-environment-uplink env) + for val = (and env (gethash symbol (movitz-environment-function-cells env))) while env - for val = (gethash symbol (movitz-environment-function-cells env)) when val do (return (and (typep val 'movitz-macro) (movitz-macro-expander-function val)))))) @@ -544,10 +517,9 @@ (defun movitz-compiler-macro-function (name &optional environment) (loop for env = (or environment *movitz-global-environment*) then (movitz-environment-uplink env) + for val = (and env (getf (movitz-environment-compiler-macros env) name)) while env - for val = (getf (movitz-environment-compiler-macros env) name) - when val - do (return val))) + when val do (return val))) (defun (setf movitz-compiler-macro-function) (fun name &optional environment) (setf (getf (movitz-environment-compiler-macros (or environment

1 0

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

16 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv28937 Modified Files: special-operators.lisp Log Message: Removed some dead comments. Date: Fri Jan 16 14:25:04 2004 Author: ffjeld Index: movitz/special-operators.lisp diff -u movitz/special-operators.lisp:1.2 movitz/special-operators.lisp:1.3 --- movitz/special-operators.lisp:1.2 Thu Jan 15 11:40:40 2004 +++ movitz/special-operators.lisp Fri Jan 16 14:25:04 2004 @@ -1,14 +1,14 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 20012000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: special-operators.lisp ;;;; Description: Compilation of internal special operators. ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.2 2004/01/15 16:40:40 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.3 2004/01/16 19:25:04 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -530,8 +530,9 @@ (list (register32-to-low8 returns)))) (setf (assembly-macro-expander :compile-arglist amenv) #'(lambda (expr) - (destructuring-bind (() &rest arg-forms) + (destructuring-bind (ignore &rest arg-forms) (cdr expr) + (declare (ignore ignore)) (setq side-effects t) (make-compiled-argument-forms arg-forms funobj env)))) (setf (assembly-macro-expander :compile-two-forms amenv) @@ -545,29 +546,11 @@ (setq side-effects t)) (setq modifies (modifies-union modifies sub-modifies)) code)))) -;;; #+ignore (setf (assembly-macro-expander :call-global-constant amenv) #'(lambda (expr) (destructuring-bind (name) (cdr expr) `((:globally (:call (:edi (:edi-offset ,name)))))))) -;;; #+ignore -;;; (setf (assembly-macro-expander :store-global-constant amenv) -;;; #'(lambda (expr) -;;; (assert side-effects () -;;; "Can't do :store-global-constant when :side-effects nil is declared.") -;;; (destructuring-bind (name source &key thread-local) -;;; (cdr expr) -;;; (let ((pf (if thread-local '((:fs-override))))) -;;; `((,@pf :movl ,source -;;; ,(make-indirect-reference :edi (global-constant-offset name)))))))) -;;; (setf (assembly-macro-expander :load-global-constant amenv) -;;; #'(lambda (expr) -;;; (destructuring-bind (name destination &key thread-local) -;;; (cdr expr) -;;; (let ((pf (if thread-local '((:fs-override))))) -;;; `((,@pf :movl ,(make-indirect-reference :edi (global-constant-offset name)) -;;; ,destination)))))) (setf (assembly-macro-expander :warn amenv) #'(lambda (expr) (apply #'warn (cdr expr)) @@ -577,39 +560,6 @@ (destructuring-bind (var reg &key (type t)) (cdr expr) `((:store-lexical ,(movitz-binding var env) ,reg :type ,type))))) -;;; (setf (assembly-macro-expander :locally amenv) -;;; (lambda (expr) -;;; (destructuring-bind (sub-instr) -;;; (cdr expr) -;;; (assembly-macroexpand (list (cond -;;; ((atom sub-instr) -;;; sub-instr) -;;; ((consp (car sub-instr)) -;;; (list* (append *compiler-local-segment-prefix* -;;; (car sub-instr)) -;;; (cdr sub-instr))) -;;; (t (list* *compiler-local-segment-prefix* -;;; sub-instr)))) -;;; amenv)))) -;;; (setf (assembly-macro-expander :globally amenv) -;;; (lambda (expr) -;;; (destructuring-bind (sub-instr) -;;; (cdr expr) -;;; (assembly-macroexpand (list (cond -;;; ((atom sub-instr) -;;; sub-instr) -;;; ((consp (car sub-instr)) -;;; (list* (append *compiler-global-segment-prefix* -;;; (car sub-instr)) -;;; (cdr sub-instr))) -;;; (t (list* *compiler-global-segment-prefix* -;;; sub-instr)))) -;;; amenv)))) -;;; (setf (assembly-macro-expander :edi-offset amenv) -;;; (lambda (expr) -;;; (destructuring-bind (name) -;;; (cdr expr) -;;; (list (global-constant-offset name))))) (let ((code (assembly-macroexpand inline-asm amenv))) (assert (not (and (not side-effects) (tree-search code '(:store-lexical))))

1 0

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

16 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv21516 Modified Files: compiler.lisp Log Message: Reordered some defclass forms. Date: Fri Jan 16 14:06:40 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.2 movitz/compiler.lisp:1.3 --- movitz/compiler.lisp:1.2 Thu Jan 15 11:38:52 2004 +++ movitz/compiler.lisp Fri Jan 16 14:06:40 2004 @@ -1,14 +1,14 @@ ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2001,2000, 2002-2004, -;;;; Department of Computer Science, University of Tromsø, Norway +;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Description: A simple lisp compiler. ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.2 2004/01/15 16:38:52 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.3 2004/01/16 19:06:40 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -29,6 +29,7 @@ (defvar *compiler-compile-macro-expanders* t) (defvar *compiling-function-name*) +(defvar muerte.cl:*compile-file-pathname* nil) (defun duplicatesp (list) "Returns TRUE iff at least one object occurs more than once in LIST." @@ -1797,8 +1798,6 @@ ;; :initarg :store-type :accessor binding-store-type))) -(defclass funobj-binding (function-binding) ()) -(defclass closure-binding (function-binding located-binding) ()) (defclass lexical-binding (variable-binding) ()) (defclass located-binding (lexical-binding) ()) @@ -1810,6 +1809,8 @@ :initarg :parent-funobj :reader function-binding-parent))) +(defclass funobj-binding (function-binding) ()) +(defclass closure-binding (function-binding located-binding) ()) (defclass lambda-binding (function-binding) ()) #+ignore

1 0

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

16 Jan '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv22758 Modified Files: load.lisp Log Message: This seems to work for cmucl and sbcl. Date: Fri Jan 16 13:22:37 2004 Author: ffjeld Index: movitz/load.lisp diff -u movitz/load.lisp:1.4 movitz/load.lisp:1.5 --- movitz/load.lisp:1.4 Fri Jan 16 11:22:42 2004 +++ movitz/load.lisp Fri Jan 16 13:22:37 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.4 2004/01/16 16:22:42 ffjeld Exp $ +;;;; $Id: load.lisp,v 1.5 2004/01/16 18:22:37 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -18,16 +18,15 @@ (load (compile-file #p"../binary-types/binary-types")) -(let ((*default-pathname-defaults* #p"../ia-x86/")) - #+(or cmu sbcl) - (let ((pwd (ext:default-directory))) - (progn - (unwind-protect - (progn - (setf (ext:default-directory) #p"../ia-x86/") - (load "load")) - (setf (ext:default-directory) pwd)))) - #-(or cmu sbcl) (load "load")) +(let ((*default-pathname-defaults* (merge-pathnames #p"../ia-x86/"))) + #+(or cmu) (let ((pwd (ext:default-directory))) + (progn + (unwind-protect + (progn + (setf (ext:default-directory) #p"../ia-x86/") + (load "load")) + (setf (ext:default-directory) pwd)))) + #-(or cmu) (load "load")) #+allegro (progn (load (compile-file #p"../infunix/procfs")) @@ -65,4 +64,6 @@ ;; "procfs-image" "assembly-syntax" "compiler-protocol" - "compiler" "special-operators" "special-operators-cl")))))) + "compiler" + "special-operators" + "special-operators-cl"))))))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs January 2004