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))