format problem to string

ID	Created	Type	mocl Version	Dev OS	Target	Status
#54	by tom on 2014-08-04 (1992 days ago)	defect	14.05	Mac OS X	iOS	closed

Description

Summary:

Bug regarding format to string.  Minimial test case below.  Small function counts words in list and sends back a formatted string 

Format is complaining about receiving nil instead of array.  Works in CL64

Steps to Reproduce:

(defun worker () 
  (let ((s '("NOW" "IS" "THE" "TIME" "FOR" "TIME" "GOOD" "MEN"))
	(ht (make-hash-table))
	(alist  nil)
	(resstr (make-array 0 
			    :element-type 'character 
			    :adjustable t 
			    :fill-pointer 0)))
    (mapcar #'(lambda (n)
		(let ((n1 (intern n)))
		  (if (numberp (gethash n1 ht))
		      (setf (gethash n1 ht) (1+ (gethash n1 ht)))
		      (setf (gethash n1 ht) 1)))) s)
    (maphash #'(lambda (k v)
		 (push (cons k v) alist)) ht)
    (print alist)

    (mapcar #'(lambda(p)
		  (format resstr  "~S : ~S ~&" (car p) (cdr p))) alist)  
    resstr))

(worker)


Expected Results:
((D . 1) (C . 1) (B . 1) (A . 1)) 

"IS : 1 
FOR : 1 
TIME : 2 
GOOD : 1 
NOW : 1 
THE : 1 
MEN : 1 
"

Actual Results:
mocl repl server started at 10.0.1.13 (en0)

((D . 1) (C . 1) (B . 1) (A . 1)) 
Error: NIL should be of type ARRAY
  in format
  in mapc
  in worker (test.lisp:29)
  in testfunc (test.lisp:23)

Notes:

Comments

Hi Tom,

I just fixed this in source code commit 02f3a8f. I'm hoping to release a new binary this week that you can download. If you need it ASAP let me know and I'll send you something ahead of that.

Wes

- Wukix, 1991 days ago

New binary (14.08) is out. Closing ticket.

- Wukix, 1976 days ago