Skip to content
Browse files

quote macro argument default so that it is evaluated at load time, no…

…t compile time
  • Loading branch information...
1 parent b886f2e commit d8b474562debbac9b19e2394099e87a260cf03b2 @hanshuebner committed Feb 23, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/xml-impex/xml-export.lisp
2 src/xml-impex/xml-export.lisp
@@ -9,7 +9,7 @@
(defvar *objects-written*)
-(defmacro write-to-xml (object &key name (output *standard-output*) (indentation 3) (canonical nil))
+(defmacro write-to-xml (object &key name (output '*standard-output*) (indentation 3) (canonical nil))
`(let ((*objects-written* (make-hash-table :test #'equal))
(cxml::*current-element* nil)
(sink (cxml:make-character-stream-sink ,output :indentation ,indentation :canonical ,canonical)))

0 comments on commit d8b4745

Please sign in to comment.
Something went wrong with that request. Please try again.