xyzzy の cmu_loop.l の改造箇所

gistfile1.diff

以下の 2 つのファイルの diff

   * http://www.cs.cmu.edu/afs/cs/project/ai-repository/ai/lang/lisp/code/iter/loop/cmu/cmu_loop.cl
   * http://github.com/southly/xyzzy.src/blob/0.2.2.235/lisp/cmu_loop.l

--- cmu_loop.cl	2010-08-06 16:46:20.171500000 +0900
+++ cmu_loop.l	2007-03-10 14:33:22.000000000 +0900
@@ -119,7 +119,8 @@
 ;;;                 did put in a comment at the use of string=.
 
  
-
+#+:xyzzy
+(provide "cmu_loop")
 
 ;;; ********************************
 ;;; Package Definitions ************
@@ -139,7 +140,7 @@
 ;    (export '(loop loop-finish) "LISP"))
 (if (find-package "COMMON-LISP")
     (in-package "COMMON-LISP")
-    (in-package "LISP"))
+    (in-package #+:xyzzy "lisp" #-:xyzzy "LISP"))
 )
 
 #+:allegro-v3.1
@@ -220,7 +221,10 @@
 
 ;;; This special holds the remaining stuff we need to parse.
 ;;; 
+#-:xyzzy
 (defvar *remaining-stuff*)
+#+:xyzzy
+(defvar *remaining-stuff* nil)
 
 ;;; This special holds a value that is EQ only to itself.
 ;;; 
@@ -228,7 +232,6 @@
 
 
 ;;;; Utility functions/macros used by the parser.
-
 (eval-when (compile load eval)
 	   (proclaim '(inline maybe-car maybe-cdr)))
 
@@ -250,7 +253,7 @@
 			      ;; it's your own fault, so you should be used
 			      ;; to this already.
 			      ;; mk 2/8/93
-			      `(string= name ,keyword))
+			      `(#+:xyzzy string-equal #-:xyzzy string= name ,keyword))
 			  (cons keyword more-keywords)))))))
 
 (defun preposition-p (prep)