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@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@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@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@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@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@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@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 $ ;;;; ;;;;------------------------------------------------------------------