[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
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Mon Jan 19 11:23:43 UTC 2004
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 at 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 at 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 at 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 at 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 at 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 at 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 at 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 $
;;;;
;;;;------------------------------------------------------------------
More information about the Movitz-cvs
mailing list