From 0bd84dc10469589952576b86424c92bd528fcd06 Mon Sep 17 00:00:00 2001 From: "waldemar%netscape.com" Date: Tue, 7 Dec 1999 22:04:58 +0000 Subject: [PATCH] Made semantics compiled on Allegro --- js/semantics/Main.lisp | 4 ++-- js2/semantics/Main.lisp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/js/semantics/Main.lisp b/js/semantics/Main.lisp index a22a8b32ecab..f06eaff44aa1 100644 --- a/js/semantics/Main.lisp +++ b/js/semantics/Main.lisp @@ -31,7 +31,7 @@ '("Utilities" "Markup" "RTF" "HTML" "GrammarSymbol" "Grammar" "Parser" "Metaparser" "Lexer" "Calculus" "CalculusMarkup")) (defparameter *semantics-filenames* - '("JS20/Parser" "JS20/Lexer" "JS20/RegExp" #|"JSECMA/Lexer" "JSECMA/Parser"|# )) + '("JS20/Parser" "JS20/Lexer" "JS20/Kernel" "JS20/RegExp")) (defparameter *semantic-engine-directory* (make-pathname @@ -71,7 +71,7 @@ (operate-on-files #-allegro #'load #+allegro #'load-compiled *semantic-engine-filenames*)) (defun load-semantics () - (operate-on-files #'load *semantics-filenames*)) + (operate-on-files #-allegro #'load #+allegro #'load-compiled *semantics-filenames*)) (defmacro with-local-output ((stream filename) &body body) diff --git a/js2/semantics/Main.lisp b/js2/semantics/Main.lisp index a22a8b32ecab..f06eaff44aa1 100644 --- a/js2/semantics/Main.lisp +++ b/js2/semantics/Main.lisp @@ -31,7 +31,7 @@ '("Utilities" "Markup" "RTF" "HTML" "GrammarSymbol" "Grammar" "Parser" "Metaparser" "Lexer" "Calculus" "CalculusMarkup")) (defparameter *semantics-filenames* - '("JS20/Parser" "JS20/Lexer" "JS20/RegExp" #|"JSECMA/Lexer" "JSECMA/Parser"|# )) + '("JS20/Parser" "JS20/Lexer" "JS20/Kernel" "JS20/RegExp")) (defparameter *semantic-engine-directory* (make-pathname @@ -71,7 +71,7 @@ (operate-on-files #-allegro #'load #+allegro #'load-compiled *semantic-engine-filenames*)) (defun load-semantics () - (operate-on-files #'load *semantics-filenames*)) + (operate-on-files #-allegro #'load #+allegro #'load-compiled *semantics-filenames*)) (defmacro with-local-output ((stream filename) &body body)