cl-babel/babel — Issue #9: Babel will not compile on sbcl 1.0.55
Author: kraison
Created: 2012-03-10 04:56:48+00:00
State: open

With a fresh checkout of babel from github, I get the following errors:

; file: /home/raison/quicklisp/local-projects/babel/src/enc-unicode.lisp
; in: DEFINE-UTF-16 :UTF-16
; (BABEL-ENCODINGS::DEFINE-UTF-16 :UTF-16)
;
; caught ERROR:
; (during macroexpansion of (DEFINE-UTF-16 :UTF-16))
; #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
; Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UTF-16 :UTF-16LE
; (BABEL-ENCODINGS::DEFINE-UTF-16 :UTF-16LE :LE)
;
; caught ERROR:
; (during macroexpansion of (DEFINE-UTF-16 :UTF-16LE ...))
; #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
; Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UTF-16 :UTF-16BE
; (BABEL-ENCODINGS::DEFINE-UTF-16 :UTF-16BE :BE)
;
; caught ERROR:
; (during macroexpansion of (DEFINE-UTF-16 :UTF-16BE ...))
; #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
; Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UTF-32
; (BABEL-ENCODINGS::DEFINE-UCS :UTF-32 4)
;
; caught ERROR:
; (during macroexpansion of (DEFINE-UCS :UTF-32 ...))
; #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
; Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UTF-32LE
; (BABEL-ENCODINGS::DEFINE-UCS :UTF-32LE 4 :LE)
;
; caught ERROR:
; (during macroexpansion of (DEFINE-UCS :UTF-32LE ...))
; #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
; Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UTF-32BE
; (BABEL-ENCODINGS::DEFINE-UCS :UTF-32BE 4 :BE)
;
; caught ERROR:
; (during macroexpansion of (DEFINE-UCS :UTF-32BE ...))
; #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
; Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UCS-2
; (BABEL-ENCODINGS::DEFINE-UCS :UCS-2 2 NIL 65536)
;
; caught ERROR:
; (during macroexpansion of (DEFINE-UCS :UCS-2 ...))
; #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
; Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UCS-2LE
; (BABEL-ENCODINGS::DEFINE-UCS :UCS-2LE 2 :LE 65536)
;
; caught ERROR:
; (during macroexpansion of (DEFINE-UCS :UCS-2LE ...))
; #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
; Wanted one of (STRING SIMPLE-STRING).

; in: DEFINE-UCS :UCS-2BE
; (BABEL-ENCODINGS::DEFINE-UCS :UCS-2BE 2 :BE 65536)
;
; caught ERROR:
; (during macroexpansion of (DEFINE-UCS :UCS-2BE ...))
; #:~A-CODE-POINT-COUNTER fell through ETYPECASE expression.
; Wanted one of (STRING SIMPLE-STRING).