[movitz-cvs] CVS update: movitz/bootblock.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Fri Jan 16 15:40:36 UTC 2004
Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv21629
Modified Files:
bootblock.lisp
Log Message:
Removed a comment that confused CLisp's reader (!)
Date: Fri Jan 16 10:40:35 2004
Author: ffjeld
Index: movitz/bootblock.lisp
diff -u movitz/bootblock.lisp:1.4 movitz/bootblock.lisp:1.5
--- movitz/bootblock.lisp:1.4 Thu Jan 15 16:25:43 2004
+++ movitz/bootblock.lisp Fri Jan 16 10:40:35 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: bootblock.lisp
;;;; Description: A simple, single-stage, floppy bootloader.
@@ -9,7 +9,7 @@
;;;; Created at: Mon Oct 9 20:47:19 2000
;;;; Distribution: See the accompanying file COPYING.
;;;;
-;;;; $Id: bootblock.lisp,v 1.4 2004/01/15 21:25:43 ffjeld Exp $
+;;;; $Id: bootblock.lisp,v 1.5 2004/01/16 15:40:35 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
@@ -293,7 +293,7 @@
entering (% format 8 "~%
Enter..")
error (% format 8 "Failed!)")
track-start-msg (% format 8 "(")
- track-end-msg (% format 8 ")") ;; (% format 8 ")~%
")
+ track-end-msg (% format 8 ")")
sector-msg (% format 8 "-")
(% align 16)
@@ -330,8 +330,6 @@
(assert (<= load-address call-address (+ load-address image-size)) ()
"Call-address #x~X is not in range #x~X to #x~X."
call-address load-address (+ load-address image-size))
-;;; (warn "Call-address: #x~X" call-address)
-;;; (warn "Call-funobj: #x~X" call-funobj)
(ia-x86:read-proglist
`(
;;
More information about the Movitz-cvs
mailing list