Print Page - Array or char bug?

Title: Array or char bug?
Post by: cameyo on September 23, 2020, 03:21:42 AM

I have some problem to update an array:

Code Select Expand
; define an array
(setq ar (array 256 '(-1)))
; define a string
(setq str "bar")
; define an index
(setq idx (char (str 0)))
;-> 98
(number? idx)
;-> true
; update array
(setf (ar idx) 555)
;-> 555
(number? (char (str 0)))
;-> true
; update array fail
(setf (ar (char (str 0))) 555)
;-> ERR: string expected : 555

Why the last expression raise an error?

Title: Re: Array or char bug?
Post by: cameyo on September 23, 2020, 05:10:14 AM

Reading the manual for "char" function...

This solve the problem (on UTF-8 enabled system):

Code Select Expand
(setf (ar (char (str 0) 0 true)) 555)
;-> 555

newLISP Fan Club

Forum => newLISP in the real world => Topic started by: cameyo on September 23, 2020, 03:21:42 AM