OSCL/closure-common
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

runes.asd

Browse Source 
neues release
This commit is contained in:
dlichteblau
2007-05-26 21:55:58 +00:00
parent b6551d34b4
commit b07409f2c2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
utf8.lisp
View File

@ -29,7 +29,7 @@
(defun rod-reader (stream subchar arg) (defun rod-reader (stream subchar arg)
(runes::rod-string (runes::rod-reader stream subchar arg))) (runes::rod-string (runes::rod-reader stream subchar arg)))
(setf cxml-system::*utf8-runes-readtable* (setf runes-system:*utf8-runes-readtable*
(let ((rt (copy-readtable))) (let ((rt (copy-readtable)))
(set-dispatch-macro-character #\# #\/ 'rune-reader rt) (set-dispatch-macro-character #\# #\/ 'rune-reader rt)
(set-dispatch-macro-character #\# #\" 'rod-reader rt) (set-dispatch-macro-character #\# #\" 'rod-reader rt)