CMUCL commit: intl-branch src/compiler (dump.lisp)

[Raymond Toy]

    Date: Friday, February 26, 2010 @ 01:10:18
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler
     Tag: intl-branch

Modified: dump.lisp

Remove junk character inadvertently inserted in last commit.


-----------+
 dump.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/compiler/dump.lisp
diff -u src/compiler/dump.lisp:1.83.12.4 src/compiler/dump.lisp:1.83.12.5
--- src/compiler/dump.lisp:1.83.12.4	Thu Feb 25 22:38:17 2010
+++ src/compiler/dump.lisp	Fri Feb 26 01:10:17 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.83.12.4 2010-02-26 03:38:17 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.83.12.5 2010-02-26 06:10:17 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1727,7 +1727,7 @@
 
 (defun dump-layout (obj file)
   (unless (member (layout-invalid obj) '(nil :compiler))
-x    (compiler-error _N"Dumping reference to obsolete class: ~S"
+    (compiler-error _N"Dumping reference to obsolete class: ~S"
 		    (layout-class obj)))
   (let ((name (%class-name (layout-class obj))))
     (assert name)