[Openmcl-devel] setf gethash on constant hashtable does not work

[David Tolpin]

Hi,

test.lisp
==========

(defconstant constant-table (make-hash-table))
(defparameter variable-table (make-hash-table))

(setf (gethash 1 constant-table) :one)
(setf (gethash 2 constant-table) :two)
(setf (gethash 1 variable-table) :one)
(setf (gethash 2 variable-table) :two)

==========


? (compile-file "test")
#P"/Users/dvd/Workplace/RenderX/XEPNG/src/modules/font-server/test.dfsl"
NIL
NIL
? (load "test")
#P"/Users/dvd/Workplace/RenderX/XEPNG/src/modules/font-server/test.dfsl"
? constant-table
#<HASH-TABLE :TEST EQL size 0/60 #x84BBB46>
? variable-table
#<HASH-TABLE :TEST EQL size 2/60 #x84BB296>
?