((textp prev) (values (p prev) t)))))
(defun default (text)
- (lambda (prev) (declare (ignore prev)) text))
+ (lambda (prev)
+ (if
+ (textp prev)
+ (values (as-text (format nil "~A ~A" (cadr prev) (cadr text))) t)
+ text)))
(defun codefence (codetype)
(lambda (prev)