Initial revision

2005-03-13 18:02:10 +00:00
commit d6ca7664f4
81 changed files with 19663 additions and 0 deletions
--- a/CLISP.diff
+++ b/CLISP.diff
@ -0,0 +1,17 @@
+--- orig/xml/xml-parse.lisp
+++ mod/xml/xml-parse.lisp
+@@ -525,7 +525,10 @@
+ (declaim (type (simple-array rune (*))
+                *scratch-pad* *scratch-pad-2* *scratch-pad-3* *scratch-pad-4*))
+ 
+-(defmacro with-scratch-pads (() &body body)
+(defmacro with-scratch-pads (#-clisp ()
+			     ;; clisp does not allow () as macro argument list
+			     #+clisp (&key &allow-other-keys)
+			     &body body)
+   `(let ((*scratch-pad* (make-array 1024 :element-type 'rune))
+          (*scratch-pad-2* (make-array 1024 :element-type 'rune))
+          (*scratch-pad-3* (make-array 1024 :element-type 'rune))
+
+
+