Changeset 8898


Ignore:
Timestamp:
04/08/05 12:44:25 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/inspect.lisp

    r8643 r8898  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: inspect.lisp,v 1.11 2005-02-26 17:45:58 piso Exp $
     4;;; $Id: inspect.lisp,v 1.12 2005-04-08 12:44:25 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    4545
    4646(defun display-object (obj display-parts-p)
    47   (let ((*print-length* 1)
    48         (*print-level* 1))
     47  (let ((*print-length* 2)
     48        (*print-level* 2))
    4949    (cond ((typep obj 'standard-object)
    5050           (let ((parts (inspected-parts obj))
     
    5959                         value)
    6060                 (incf i)))))
    61           ((vectorp obj)
     61          ((simple-vector-p obj)
    6262           (format t "~A at #x~X~%" (inspected-description obj) (identity-hash-code obj))
    6363           (let ((limit (min (length obj) 25)))
    6464             (dotimes (i limit)
    65                (format t "~4D-> ~A~%" i (inspected-description (aref obj i))))))
     65               (format t "~4D-> ~A~%" i (aref obj i)))))
     66          ((vectorp obj)
     67           (format t "~A~%" (inspected-description obj))
     68           (let ((limit (min (length obj) 25)))
     69             (dotimes (i limit)
     70               (format t "~4D-> ~A~%" i (aref obj i)))))
    6671          ((consp obj)
    6772           (multiple-value-bind (len kind) (safe-length obj)
     
    7479                  (dolist (item obj)
    7580                    (cond ((< i 25)
    76                            (format t "~4D-> ~A~%" i item))
     81                           (format t "~4D-> ~S~%" i item))
    7782                          ((= i 25)
    7883                           (format t "    ...~%"))
    7984                          ((= i (1- len))
    80                            (format t "~4D-> ~A~%" i item)))
     85                           (format t "~4D-> ~S~%" i item)))
    8186                    (incf i))))
    8287               (:dotted
     
    8994                  (loop
    9095                    (cond ((< i 25)
    91                            (format t "~4D-> ~A~%" i (inspected-description item)))
     96                           (format t "~4D-> ~S~%" i item))
    9297                          ((= i 25)
    9398                           (format t "    ...~%")))
     
    97102                      (return))
    98103                    (setf item (car rest)))
    99                   (format t "tail-> ~A~%" (inspected-description rest))))
     104                  (format t "tail-> ~S~%" rest)))
    100105               (:circular
    101106                (format t "A circular list at #x~X~%" (identity-hash-code obj))))))
    102107          (t
    103            (format t "~A at #x~X~%" (inspected-description obj) (identity-hash-code obj))
     108           (format t "~A~%" (inspected-description obj))
    104109           (let ((parts (inspected-parts obj))
    105110                 (i 0)
Note: See TracChangeset for help on using the changeset viewer.