Changeset 7647 for branches

Timestamp:

Nov 15, 2007, 11:26:17 AM (17 years ago)

Author:

Gary Byers

Message:

Define WITH-UTF-8-CSTRS.

File:

• branches/working-0711/ccl/lib/macros.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/macros.lisp

@@ -1633 +1633 @@
 (defmacro with-cstrs (speclist &body body)
    (with-specs-aux 'with-cstr speclist body))
+
+(defmacro with-utf-8-cstrs (speclist &body body)
+   (with-specs-aux 'with-utf-8-cstr speclist body))
 
 (defmacro with-encoded-cstr ((encoding-name (sym string &optional start end))