Plaster
New
List
Login
common-lisp
default
anonymous
2018.03.16 13:33:18
(define-test (misc gethash/i) (let ((ht (make-hash-table))) (is eql nil (gethash :foo ht)) (is eql 42 (gethash/i :foo ht 42)) (is eql 42 (gethash :foo ht)) (is eql 42 (gethash/i :foo ht 123)) (is eql 42 (gethash :foo ht))))
Raw
Annotate
Repaste
Edit