[movitz-cvs] CVS movitz/losp

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp
In directory clnet:/tmp/cvs-serv14218

Modified Files:
	los0.lisp 
Log Message:
Initialize loop macroexpander at startup.


--- /project/movitz/cvsroot/movitz/losp/los0.lisp	2007/04/09 17:30:15	1.51
+++ /project/movitz/cvsroot/movitz/losp/los0.lisp	2008/04/17 19:31:13	1.52
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  1 18:08:32 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: los0.lisp,v 1.51 2007/04/09 17:30:15 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.52 2008/04/17 19:31:13 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -56,7 +56,7 @@
 (in-package los0)
 
 ;; (defun load-ansi-tests ()
-;;   (load "../ansi-tests.lisp"))
+;;   (load "ansi-tests.lisp"))
 
 (defun assess-cpu-frequency ()
   "Assess the CPU's frequency in units of 1024 Hz."
@@ -470,7 +470,9 @@
 		       *standard-input* s
 		       *terminal-io* s
 		       *debug-io* s)))
-    
+    (when (fboundp 'muerte::make-ansi-loop-universe)
+      (setf muerte::*loop-ansi-universe*
+	    (muerte::make-ansi-loop-universe nil)))
     (setf threading:*segment-descriptor-table-manager*
       (make-instance 'threading:segment-descriptor-table-manager))