Permalink
Browse files

Make print-ima return the object just for the sake of standard printi…

…ng behavior.
  • Loading branch information...
smithzvk committed Jul 17, 2012
1 parent 1113b2d commit 42150b36536ee042b707840b3ff2bb09794f106f
Showing with 2 additions and 1 deletion.
  1. +2 −1 printer.lisp
View
@@ -26,7 +26,8 @@
(if (= 1 (length (ima-dimensions array)))
(format stream "~S" (imref array i))
(output-guts stream (get-slice array 0 i)))))))
- (output-guts stream array)))))
+ (output-guts stream array))))
+ array)
;;<<>>=
(defmethod print-object ((array index-mapped-array) stream)

0 comments on commit 42150b3

Please sign in to comment.