18 lines
605 B
Diff
18 lines
605 B
Diff
--- 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))
|
|
|
|
|
|
|