[O] :results raw for html export problem

[Lawrence Bottorff]

Here's some Lisp in an org file that I export to html

#+begin_src lisp :exports both :results raw

(write (setf my-array (make-array '(10))))

(terpri) ; goo.gl/lCcdDU / Function TERPRI, FRESH-LINE

(setf (aref my-array 0) 25)

(setf (aref my-array 1) 23)

(setf (aref my-array 2) 45)

(setf (aref my-array 3) 10)

(setf (aref my-array 4) 20)

(setf (aref my-array 5) 17)

(setf (aref my-array 6) 25)

(setf (aref my-array 7) 19)

(setf (aref my-array 8) 67)

(setf (aref my-array 9) 30)

(write my-array)

#+end_src

#+RESULTS:

#(25 23 45 10 20 17 25 19 67 30)

. . . but the results look munged after an html export:

#(25 23 45 10 20 17 25 19 67 30) #(25 23 45 10 20 17 25 19 67 30)

. . . not the mono-space font and the answer is repeated. However, this code behaves well:

#+begin_src lisp :exports both

(setf x (make-array '(3 3) 

   :initial-contents '((0 1 2 ) (3 4 5) (6 7 8)))

)

(write x)

#+end_src

#+RESULTS:

: #2A((0 1 2) (3 4 5) (6 7 8))

and exports well. Please advise. I'm on latest, greatest everything (25.1.1; 9.0.4;U16.10; SBCL1.3.14; fresh quicklisp slime).

LB