:results raw for html export problem

[Lawrence Bottorff <borgauf@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1071 bytes --]

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

[-- Attachment #2: Type: text/html, Size: 1604 bytes --]