Compiling BOM-VECTOR emits a "type assertion to complex to check note." The reason is that (THE FOO (QUUX)) is actually of type (VALUES FOO &REST T) which SBCL, at least for the moment, cannot cope well with. The below patch changes it to (THE FOO (VALUES (QUUX))).

-T.

diff -rN -u old-babel/src/strings.lisp new-babel/src/strings.lisp --- old-babel/src/strings.lisp 2009-06-01 14:58:56.000000000 +0200 +++ new-babel/src/strings.lisp 2009-06-01 14:58:56.000000000 +0200 @@ -237,15 +237,16 @@ (defun bom-vector (encoding use-bom) (check-type use-bom (member :default t nil)) (the simple-vector - (if (null use-bom) - #() - (let ((enc (typecase encoding - (external-format (external-format-encoding encoding)) - (t (get-character-encoding encoding))))) - (if (or (eq use-bom t) - (and (eq use-bom :default) (enc-use-bom enc))) - (enc-bom-encoding enc) - #()))))) + (values + (if (null use-bom) + #() + (let ((enc (typecase encoding + (external-format (external-format-encoding encoding)) + (t (get-character-encoding encoding))))) + (if (or (eq use-bom t) + (and (eq use-bom :default) (enc-use-bom enc))) + (enc-bom-encoding enc) + #()))))))

(defun string-to-octets (string &key (encoding *default-character-encoding*) (start 0) end (use-bom :default)