CL-USER> (let* ((*print-pretty* nil)
                (*print-length* 2))
           (print (make-record-list :table (alexandria:plist-hash-table '(:a 1 :d 1 :c 3 :b 2))))
           (values))

#<RECORD-LIST :A 1 :D 1> 
; No value
CL-USER> (let* ((*print-pretty* t) 
                (*print-right-margin* 15))
           (print (make-record-list :table (alexandria:plist-hash-table '(:a 1 :d 1 :c 3 :b 2))))
           (values))

#<RECORD-LIST :A 1
              :D 1
              :C 3
              :B 2> 
; No value
CL-USER> (let* ((*print-pretty* t) 
                (*print-right-margin* 20))
           (print (make-record-list :table (alexandria:plist-hash-table '(:a 1 :d 1 :c 3 :b 2))))
           (values))

#<RECORD-LIST :A 1
              :D 1
              :C 3
              :B 2> 
; No value
CL-USER> (let* ((*print-pretty* t) 
                (*print-right-margin* 30))
           (print (make-record-list :table (alexandria:plist-hash-table '(:a 1 :d 1 :c 3 :b 2))))
           (values))

#<RECORD-LIST :A 1 :D 1 :C 3
              :B 2> 
; No value
CL-USER>