Fix return-from

Author: yitzchak

src/lisp/kernel/clos/print.lisp

@@ -252,7 +252,7 @@ printer and we should rather use MAKE-LOAD-FORM."
            *print-level*
            (zerop *print-level*))
       (write-string "#" stream)
-      (return-from print-object obj))
+      (return-from print-structure-object obj))
     (write-string "#S(" stream)
     (prin1 (class-name class) stream)
     (do ((scan slotds (cdr scan))