LOOPing over hash-table values crashes.

ID	Created	Type	mocl Version	Dev OS	Target	Status
#61	by simon on 2014-11-19 (1737 days ago)	defect	14.08	Mac OS X	Android	closed

Description

Summary:

LOOPing over hash-table values makes mocl crash.

Steps to Reproduce:

In a lisp file write this:

(let ((h (make-hash-table :test 'equal)))
  (loop :for value :being :the :hash-values :of h :do
	 (format t "~S~%" value)))

Expected Results:

NIL

Actual Results:

mocl crashes with following log:

mocl.Condition: Error: Function "G5405" is not defined. It has been called with arguments 
(#S(HASH-TABLE :SIZE 53 :COUNT 0 :REHASH-SIZE 1.5 :REHASH-THRESHOLD 0.7 :TEST #<function> :ARRAY #(NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL ...)))
     in g5405
     in func (file.lisp:1304)

Notes:

Using mocl from git, commit 3c9fbad.

Comments

Thanks for the bug report. I'll try to get you a fix soon (maybe Friday). In the meantime, maphash could be a substitute.

- Wukix, 1737 days ago

```
Thanks! maphash is a good workaround :)
```
- simon, 1737 days ago

Fixed in commit fcee9b3. Please close this ticket if it's working for you.

- Wukix, 1734 days ago

```
It's working. Thanks!
```
- simon, 1733 days ago