moved find-output-encoding to closure-common, thanks to Nathan Bird
authorDavid Lichteblau <david@lichteblau.com>
Mon, 19 May 2008 21:58:46 +0000 (19 23:58 +0200)
committerDavid Lichteblau <david@radon.(none)>
Mon, 19 May 2008 21:58:46 +0000 (19 23:58 +0200)
src/parse/unparse.lisp

index dc303c8..61096ab 100644 (file)
@@ -30,7 +30,7 @@
                (let* ((encoding (or encoding "UTF-8"))
                       (ystream (,make-ystream ,@args)))
                  (setf (ystream-encoding ystream)
-                       (cxml::find-output-encoding encoding))
+                       (runes:find-output-encoding encoding))
                  (apply #'make-instance
                       'sink
                       :ystream ystream