Plaster
New
List
Login
text
default
yitzi
2024.02.28 18:23:20
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>
Raw
Annotate
Repaste