- (t (values t code))))
- ((or (eq (car code) *bq-at-flag*)
- (eq (car code) *bq-dot-flag*))
- (values (car code) (cdr code)))
- ((eq (car code) *bq-comma-flag*)
- (comma (cdr code)))
- ((eq (car code) *bq-vector-flag*)
- (multiple-value-bind (dflag d) (backquotify stream (cdr code))
- (values 'vector (backquotify-1 dflag d))))
- (t (multiple-value-bind (aflag a) (backquotify stream (car code))
- (multiple-value-bind (dflag d) (backquotify stream (cdr code))
- (if (eq dflag *bq-at-flag*)
- ;; Get the errors later.
- (%reader-error stream ",@ after dot in ~S" code))
- (if (eq dflag *bq-dot-flag*)
- (%reader-error stream ",. after dot in ~S" code))
- (cond
- ((eq aflag *bq-at-flag*)
- (if (null dflag)
- (if (expandable-backq-expression-p a)
+ (t (values t code))))
+ ((or (eq (car code) *bq-at-flag*)
+ (eq (car code) *bq-dot-flag*))
+ (values (car code) (cdr code)))
+ ((eq (car code) *bq-comma-flag*)
+ (comma (cdr code)))
+ ((eq (car code) *bq-vector-flag*)
+ (multiple-value-bind (dflag d) (backquotify stream (cdr code))
+ (values 'vector (backquotify-1 dflag d))))
+ (t (multiple-value-bind (aflag a) (backquotify stream (car code))
+ (multiple-value-bind (dflag d) (backquotify stream (cdr code))
+ (when (eq dflag *bq-at-flag*)
+ ;; Get the errors later.
+ (simple-reader-error stream ",@ after dot in ~S" code))
+ (when (eq dflag *bq-dot-flag*)
+ (simple-reader-error stream ",. after dot in ~S" code))
+ (cond
+ ((eq aflag *bq-at-flag*)
+ (if (null dflag)
+ (if (expandable-backq-expression-p a)