[movitz-cvs] CVS update: movitz/losp/muerte/print.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv24206

Modified Files:
	print.lisp 
Log Message:
Add #\_ as a 'safe' character.

Date: Sun Aug 14 14:13:51 2005
Author: ffjeld

Index: movitz/losp/muerte/print.lisp
diff -u movitz/losp/muerte/print.lisp:1.19 movitz/losp/muerte/print.lisp:1.20
--- movitz/losp/muerte/print.lisp:1.19	Wed May  4 10:00:39 2005
+++ movitz/losp/muerte/print.lisp	Sun Aug 14 14:13:51 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Sep  3 11:48:19 2001
 ;;;;                
-;;;; $Id: print.lisp,v 1.19 2005/05/04 08:00:39 ffjeld Exp $
+;;;; $Id: print.lisp,v 1.20 2005/08/14 12:13:51 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -258,7 +258,7 @@
 				 (every (lambda (c)
 					  (or (upper-case-p c)
 					      (member c '(#\+ #\- #\% #\$ #\* #\@ #\. #\&
-							  #\/ #\< #\> #\=))
+							  #\/ #\< #\> #\= #\_))
 					      (digit-char-p c)))
 					name)
 				 (not (every (lambda (c)