[j-devel] print hash-table readably

[Alex M. <kil...@ne...>]

Hello, All!

ABCL does not honor *print-readably* when printing hash tables.
if *print-readably* is set to T it should report error.
for example in Lispworks:

CL-USER 1 > (defparameter *jjj* (make-hash-table))
*JJJ*

CL-USER 2 > (setf (gethash 'udo *jjj*) 'idio)
IDIO

CL-USER 3 > (print *jjj*)

#<EQL Hash Table{1} 2131C894>
#<EQL Hash Table{1} 2131C894>

CL-USER 4 > (setq *print-readably* t)
T

CL-USER 5 > (print *jjj*)


Error: Trying to print #<EQL Hash Table{1} 2133565C> unreadably with 
*PRINT-READABLY* set.
  1 (continue) Print it anyway.
  2 (abort) Return to level 0.
  3 Return to top loop level 0.

in SBCL:

* (print (make-hash-table))

#<HASH-TABLE :TEST EQL :COUNT 0 {A820CA1}>
#<HASH-TABLE :TEST EQL :COUNT 0 {A820CA1}>
* (setq *print-readably* t)

T
* (print (make-hash-table))

#.(SB-IMPL::%STUFF-HASH-TABLE (MAKE-HASH-TABLE :TEST (QUOTE EQL) :SIZE 
(QUOTE 16) :REHASH-SIZE (QUOTE 1.5) :REHASH-THRESHOLD (QUOTE 1.0) :WEAKNESS 
(QUOTE NIL)) (QUOTE NIL))
#.(SB-IMPL::%STUFF-HASH-TABLE (MAKE-HASH-TABLE :TEST (QUOTE EQL) :SIZE 
(QUOTE 16) :REHASH-SIZE (QUOTE 1.5) :REHASH-THRESHOLD (QUOTE 1.0) :WEAKNESS 
(QUOTE NIL)) (QUOTE NIL))


With best regards, Alex Mizrahi.