[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SUBLIS with arrays



(setq edge-1 (*array nil 'flonum 2))
(setq edge-2 (*array nil 'flonum 2))

(setq face (list edge-1))
(setq alist (list (cons edge-1 edge-2)))

(sublis alist face)

;will produce the error
;#FLONUM-2-70774 NON-ATOMIC ITEM - SUBLIS

John.