- (write (list (cons 'numdl (length trans))
- (cons 'lastdl lastdl)
- (cons 'availsr info-numavail)
- (cons 'realsr info-numreal)
- (cons 'totalsr info-numtotal)
- (cons 'lastsrch lastsearch)
- (cons 'srcheta info-searcheta)
- (cons 'srchmode (cdr (assoc 'search-mode session))))
- op)
- (newline op)
+ (pretty-print (list (cons 'numdl (length trans))
+ (cons 'lastdl lastdl)
+ (cons 'availsr info-numavail)
+ (cons 'realsr info-numreal)
+ (cons 'totalsr info-numtotal)
+ (cons 'lastsrch lastsearch)
+ (cons 'srcheta info-searcheta)
+ (cons 'srchmode (cdr (assoc 'search-mode session))))
+ op)