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

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

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

Modified Files:
	construct.lisp 
Log Message:
updated some code so that albert will compile even if *readtable* is :downcase

Index: construct.lisp
===================================================================
RCS file: /cvsroot/albert/albert/construct.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** construct.lisp	15 Oct 2003 13:24:55 -0000	1.5
--- construct.lisp	14 Nov 2003 16:03:27 -0000	1.6
***************
*** 48,54 ****
  
  #+:cmu
! (setq extensions:*gc-verbose* nil)
  #+allegro
! (setq excl::stream-buffer-size 8192)
  
  (defun load-albert ()
--- 48,56 ----
  
  #+:cmu
! (setf extensions:*gc-verbose* nil)
  #+allegro
! (setf excl::stream-buffer-size 8192)
! 
! (setf cl:*print-case* :downcase)
  
  (defun load-albert ()
***************
*** 75,79 ****
  
        #-mk-defsystem
!       (warn "Don't know how to load albert without mkdefsys or asdf."))
  
      
--- 77,83 ----
  
        #-mk-defsystem
!       (progn
! 	(warn "Don't know how to load albert without mkdefsys or asdf.")
! 	(return-from load-albert nil)))