finally (return `(progn ,@forms))))
(define-one-transform (sequence-type1 sequence-type2)
(make-replace-transform nil sequence-type1 sequence-type2)))
+ (define-replace-transforms)
(define-one-transform simple-base-string (simple-array character (*)))
(define-one-transform (simple-array character (*)) simple-base-string))
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.11.32"
+"1.0.11.33"