(backq-unparse (car tail) t)))
(push (backq-unparse (car tail)) accum)))
(backq-append
- (mapcan #'(lambda (el) (backq-unparse el t))
+ (mapcan (lambda (el) (backq-unparse el t))
(cdr form)))
(backq-nconc
- (mapcan #'(lambda (el) (backq-unparse el :nconc))
+ (mapcan (lambda (el) (backq-unparse el :nconc))
(cdr form)))
(backq-cons
(cons (backq-unparse (cadr form) nil)
;;; This is called by !PPRINT-COLD-INIT, fairly late, because
;;; SET-PPRINT-DISPATCH doesn't work until the compiler works.
;;;
-;;; FIXME: It might be cleaner to just make these toplevel forms and
+;;; FIXME: It might be cleaner to just make these be toplevel forms and
;;; enforce the delay by putting this file late in the build sequence.
(defun !backq-pp-cold-init ()
(set-pprint-dispatch '(cons (eql backq-list)) #'pprint-backquote)