let byte-vectors print as a list of numbers

2000-09-01 07:13:05 +00:00
parent 0c7809d0bc
commit c231ab7c6b
1 changed files with 6 additions and 6 deletions
@@ -47,12 +47,12 @@
 	  (or (template-print-name tem) (template-id tem)))))
  
 (define-method &disclose ((obj :code-vector))
-  (list 'byte-vector (code-vector-length obj))
-; (cons 'code-vector
-;       (let ((z (code-vector-length obj)))
-;         (do ((i (- z 1) (- i 1))
-;              (l '() (cons (code-vector-ref obj i) l)))
-;             ((< i 0) l))))
+;  (list 'byte-vector (code-vector-length obj))
+ (cons 'byte-vector
+       (let ((z (code-vector-length obj)))
+         (do ((i (- z 1) (- i 1))
+             (l '() (cons (code-vector-ref obj i) l)))
+             ((< i 0) l))))
  )

 (define-method &disclose ((obj :channel))