[albert-cvs] CVS: albert construct.lisp,1.6,1.7

[Stig E S. <st...@us...>]

Update of /cvsroot/albert/albert
In directory sc8-pr-cvs1:/tmp/cvs-serv14915

Modified Files:
	construct.lisp 
Log Message:
:downcase away

Index: construct.lisp
===================================================================
RCS file: /cvsroot/albert/albert/construct.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** construct.lisp	14 Nov 2003 16:03:27 -0000	1.6
--- construct.lisp	14 Nov 2003 16:08:40 -0000	1.7
***************
*** 52,56 ****
  (setf excl::stream-buffer-size 8192)
  
! (setf cl:*print-case* :downcase)
  
  (defun load-albert ()
--- 52,56 ----
  (setf excl::stream-buffer-size 8192)
  
! ;;(setf cl:*print-case* :downcase)
  
  (defun load-albert ()