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

new release

Browse Source
This commit is contained in:
dlichteblau
2005-06-25 13:56:55 +00:00
parent cf6535edbb
commit 344f498430
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
runes.lisp
View File

@ -147,12 +147,17 @@
(defun char-rune (char) (defun char-rune (char)
(code-rune (char-code char))) (code-rune (char-code char)))
(defun rune-char (rune &optional (default #\?)) (defparameter *invalid-rune* nil ;;#\?
(if (>= rune char-code-limit) "Rune to use as a replacement in RUNE-CHAR and ROD-STRING for runes not
default representable as characters. If NIL, an error is signalled instead.")
(or (code-char rune) default)))
(defun rod-string (rod &optional (default-char #\?)) (defun rune-char (rune &optional (default *invalid-rune*))
(or (if (>= rune char-code-limit)
default
(or (code-char rune) default))
(error "rune cannot be represented as a character: ~A" rune)))
(defun rod-string (rod &optional (default-char *invalid-rune*))
(map 'string (lambda (x) (rune-char x default-char)) rod)) (map 'string (lambda (x) (rune-char x default-char)) rod))
(defun string-rod (string) (defun string-rod (string)