X-Git-Url: http://dolda2000.com/gitweb/?p=lisp-utils.git;a=blobdiff_plain;f=charcode.lisp;h=a3cb5ad0949eb3c0eef81652585ec704f497cdb9;hp=486e679f7531a6a05132c455d933bf4e0e97eebb;hb=HEAD;hpb=dfa6197cf07772bba6cc056c35672b7f8c4d0f3b diff --git a/charcode.lisp b/charcode.lisp index 486e679..a3cb5ad 100644 --- a/charcode.lisp +++ b/charcode.lisp @@ -197,12 +197,12 @@ ;;; Implementation-specific functions -#+(or (and clisp unicode) sbcl) +#+(or (and clisp unicode) sbcl abcl) (defun unicode->char (unicode) (declare (type (unsigned-byte 24) unicode)) (code-char unicode)) -#+(or (and clisp unicode) sbcl) +#+(or (and clisp unicode) sbcl abcl) (defun char->unicode (char) (declare (type character char)) (char-code char))