diff --git a/code/pprint.lisp b/code/pprint.lisp index c0f66c5d64ff7418fe1760d96bc35f90c5e7430e..d1f570f650d6c04f3dd2039312d8d7f727461c0a 100644 --- a/code/pprint.lisp +++ b/code/pprint.lisp @@ -1945,7 +1945,8 @@ When annotations are present, invoke them at the right positions." (new-assem:without-scheduling pprint-with-like) (vm::with-fixed-allocation pprint-with-like) (kernel::number-dispatch pprint-with-like) - (stream::with-stream-class pprint-with-like))) + (stream::with-stream-class pprint-with-like) + (lisp::with-array-data pprint-with-like))) (defun pprint-init () (setf *initial-pprint-dispatch* (make-pprint-dispatch-table))